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ÉXERCICES 
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EDITIONS 


Nous approfondissons dans ce chapitre quelques instructions de l'ORIC-1. 


PRINT TAB(() : 
PRINT TAB{() présente deux anomalies : 
Il faut ajouter 13 pour obtenir la tabulation souhaitée. 


Exemple : 


14 PRINT TAES13+5 5: "ORIC" 
Affiche ‘ORIC’ en colonne 5. 


14 PRINT "OUPONT!" à TAC 13+8 3; "JEAH" 


N’affiche pas ‘JEAN’ en colonne 8 comme cela devrait être le cas. 
On procède donc ainsi: 


14 HOMS= "DUPONT" :PR$=" JEAH" 
24 PRINT HOMS: SPC EG-LEHC MOMS à: 
SA FRIHT FR 
FL 
CLUIFOHT JEAH 
H@— 20 —| 
LPRINT TAB) : 


Pour obtenir la tabulation verticale, il faut ajouter 13: 


14 NOM: "OUFONT" :FRSS "JEAN" 
CE LPRINT HOMS:TAES 15+E 4 0 FRS 


Nous présentons ci-dessous un programme d’édition d'étiquettes. Les adresses sont stockées 
en DATA. 


Plusieurs étiquettes sont imprimées sur une ligne. Par conséquent, il faut utiliser des tables 
‘tampons’ pour stocker puis imprimer les noms et adresses. 


NOMS$( ) ADR$( ) 


DUPONT 61 - DOMFRONT 
BREBION 14 - BAYEUX 
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Etiquettes 


SHBDR0GSS 


[x 


Ex 


BL GUN B UE 


PO lg mme mer ke LU O0 = TB CD 
EN EN ET ET ET ER ENTER ENT ET EX 


HEXT I 
LPRIHT 
250 : 
269 :FOR I=1 TO 3 
879 : LPRINT TABC13+CI-12#IH+25; 
284 : LPRINT ADR I: 
299 HET I 
392 :LPRIHT:LPRINT 
314 MEXT K 
ME _ DUPONT MR. EREBION MR_EALUT 
61-DOMFRONT 14-HAYELIX 75-PAR 
MR ROULET ME_ MARIO MR DEGREMONT 
75-PARIS 77-LAGNY 32-57 CLOUD 


REM ETIGUETTES 
IHSZE "Intervalle entre etiquettes 


HH=Éé " Hombre d'étiquettes 


DATA MR CUPOMT, 61-COMFRONT 
DATA ME BREBTOH,  14-EHYELX 
DATA MF EALUTIH,  FS-FARIS 
CATA MF ROLLET, Fa PARIS 


CATA ME MARTIOH, Fr-LAGH 
CATA MR DEGREMONT, S9S-ST CLOUD 
FOR Es1 TO INTÉHMHS3 
‘FOR Ii TO 3 

READ HOME T1, ADR I 2 
HET I 


‘FÜR Ii TO 3 
LPRINT TAB ASH T1 TH 5: 
LPRIHT NOM T 
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Editions imprimantes : 
Pour éviter que l'imprimante ‘oublie’ des caractères, on fait : 


5 CALL #ED41 “ Clavier inhibe 
126 LFRIHT "COlCOU" 
127 CALL #ECC7 “ Activation clavier 


Pour lister un programme, on fait : 


& CALL #EDG1:LLIST 16- 
18 Froïramme 4 lister 
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COPIE D'ECRAN 


Pour recopier un écran sur imprimante, nous utilisons l'instruction SCRN(C,L) qui fournit le 
code ASCII du caractère de la position spécifiée. 


Copie écran — imprimante 


READY > 
LIST 





IMPRIMANTE 


ECRAN 


Dans l'exemple ci-dessous, nous recopions une courbe dessinée sur écran. 
e LA 
Copie écran 


14 FEN CECFR COPIE ECFFAH 

19: 

24 HIRES 

6D “9=44:"0=30 

B2 REM--a mms eue fubé Le 





ES CURSET X4-30,%0, 1:DRAM 69,6. 1 
76 CURSET Y@, 9-85, 1:DRAM 6.48, 1 

72 CURSET #G-25,YO-25, 1:DRAN 59,54, 1 
75 : 

86 FOR “=-5 TO 5 STEF ,5 

94 :Y=Rkx 


109 :CURSET HO4HKS, Gr, 1 
119 HEXT % 








19Q REM==mmnes nn - COPIE 


218 FOR L=1 TO 54 
226 :FOR Ce5 TO 7 
26 : IF POINT C,Lie-1 THEN LPRIHT "#3: :GOTO 254 







LPRIHT M M": 
4 :MEËT 
264 :LPEINT 
274 HEST L 
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KEYS$ 


Avec la plupart des Basics, lorsque nous appuyons sur la touche <RETURN> en réponse à 
une instruction “INPUT”, la variable spécifiée dans l'instruction prend une valeur nulle. 
Sur ORIC-1, il faut nécessairement entrer une valeur avant d'appuyer sur <RETURN>, ce 
qui n’est pas pratique. 


Nous proposons ici un sous-programme qui remplace l'instruction ‘INPUT tout en permettant 
d'appuyer directement sur <RETURN>. 
À chaque fois qu’un caractère est saisi par ‘KEY$’, nous le concaténons à ‘LIG$’ 


LIG$ 


C$ 
HbIufr[oIn] + fr] 


Le code de suppression de caractère (en cas d’erreur de frappe) est géré par le programme 
(code 127 de la touche DEL). 


La première version de programme présentée saisie une ligne là où se trouve le curseur au 
moment de l’appel du programme. 

La deuxième version, saisit une ligne dans un endroit de l’écran spécifié. Nous utilisons pour 
cela l'instruction PLOT X, Y. 











DUPONT 








INPUT avec KEY$ 


PEl=zssessseseseenmes THPUT HMEL KHETS zx 





. CHE THEN T4 
s:LeLENHELIGS 
FTHEN FRIHT:FETLUEH 
F OTHEH 5164 








(s 
CHE VS 


Le THEN LIGS$ELEFT SE LTGS. io PRINT CHRSS LE 15 GOT SA4A EL 


2gaû ï 

3196 IF CESSE THEN FING:GOTO 3644 
3114 LIGH=LIGH+CH:PEIHT C$: 

3124 GOTO SGd4f 
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Saisie avec KEY$ et PLOT 


14 FEM SLIG SAISIE AVEC KEY$ ET FLOT 


28 CLS 
38 LIG$="" 
48 #L=18:"L=1g " Coordonness affichage 


68 L=<LENHCLIGS 
76 PLOT #L+L,'*L,134 “ Curseur 


96 C&=KEYT$:IF C$="" THEN 34 ‘ Attente caractere 
188 C=ASCECS à 


119 IF C=13 THEH 24% “ Retour chariot 

5 IF C<>127 THEH 154 “ SuPPrezssion 

149 IF LA THEH LIGS=LEFTS#ELIGS,L-15:PLOT &L4L. TL." M:GUTO 64 ELSE 
9 

145 


154 IF Cé32 THEN FIHG:GOTO 384 
155 LIG$=LIGS+C$ 

164 FLOT #L.YL.LIGS 

179 GOTO 64 

184 : 

298 PLOT AL4L,YL." " 

214 : 


30 PROGRAMMES | 13 


Le programme ci-dessous affiche 2 nombres au hasard et demande quel est leur produit. 


Multiplication 


14 


Votre réponse 





REM MULT MULTIPLICATION 

CLS 

#L= 19:YL=16 ‘REM Affichage ligne 
REM-- ee e nombres entre 1 et 28 ------ 
Ni=IHTE RHDE 1 2429 3: HZ=INTCRHDE 1 2428 


IF H145 OR M245 THEH GOTO 43 


FLOT 4L-1,%L-4,STR&E HI 
SAUNA STRSC NZ: PLOT AL-2,'fL-3,x% 


PLOT &L-1,%L,"s" 


GOSUE 62 

IF VALELIGSIEHIXNEZ THEH PLOT 15.,15,"0K.,.,.,.," 
WAIT 248:GO0OT0 24 

REM en ne oem no me one no ne une Saisie d'une ligne 
LIiGg="" 


LeLEHELIGS 
PLOT #L+L,YL, 134 


CH=KEYS:IF Cé="" THEN 94 

C=ASCE CS à 

IF C=13 THEH 266 

IF Cé:127 THEN 1584 :REM SuPPression 


IF L?4 THEH LIGS&=LEFTSELIGS,L-13:PLOT AL4L,rL," ":GOTO 65 ELSE 
IF C£32 THEH PIHG:GOTO 92 

LIGS=LICGS+CS 

PLOT #L,YL,LIGS# 

GOTO €65 


PLOT #L+L,YL,"" 
RETURH 
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CARACTÈRES SPÉCIAUX 


Les caractères spé 


ciaux permettent d'afficher des messages de couleurs différentes, clignotants, 


en double hauteur. Nous présentons ici quelques exemples. 


Affichage 


19 


multicolore double hauteur 


FEM EX2 AFFICHAGE MULTICOLORE COUELE HAUTELE 


29 : 


4 


12€, 
33 


37 


CLS 
Eb=CHE SG ZT 3 
A$="*JOTEUX HOEL...' 


FOR I=1 T0 LEHCAS: 


S :C=I-INTCI/7 #7 :RENM Couleur 


AG=AGHER+CHESGE 6440 +MIDSE AS, I. 10 
HEXT I 


PRINT : PRINT : PRINT 
PRINT " ";CHRS&C45:ES; "I"; 


196 PRINT " ":#$ 
195 PRINT CHR& 4 5 
119 GOTO 119 


CHAINE X 


Cas Li Le Li LI 


Rouge | 









/ 


$ 











Ce qui apparait JOYEUX Lo 
. di 


Affichage 


14 


un 
D 


a Ds pt be ba LU LD LD È 


CL Fo ee SJ CN 


bicolore double hauteur 
REM Ex4 AFFICHAGE BICOLORE DOUBLE HAUTEUR 


=" JOYEUX FX NOEL. 1e, Double 
hauteur 





Moitié 
rouge 








CLE 
PRIHT:FEIHT:FAIHT 
PRIT " "CHARGE d'iiEgi "": | ul 
A PRINT " "5x 
5 PRIT CHE di 
f ! 
5 FLOT 1:31 RENM Geme 1idne rouge 
[a] H 
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Affichage multicolore avec défilement 


à REM E#l AFFICHAGE MULTICOLORE 
 REN AMEC DEFILEMENT 
see 


ut 12 


pe JOUTELE HNÜEL, ,,," 





JOYEUX NOEL... 





FOR Is1i T0 LENS 
CMBeMIDSE SH, I, 15 
: I ENT] LOFT °EEM Couleur 








ï 
TC D LR ot 


ni 





cul Fi “É 4, +. ii nf PR EU LPS SN ER Res 


| LALEFTSC LE LEHE 8 31 1 


ee ee LD QU 2 Di Ti C5 LA Je Se do Poe CR 
ei im 


Fi GiTO fi 


Affichage multicolore double hauteur avec défilement 


sa AFFICHAGE MULTICOLRE COLIBLE HALITELR 
AVEC CEFTLEMENT 





ÊLE 

FRIHT CHE 
37 E$=CHEME 
45 A&= "IC EUS t 





in Li EM SuPPression curseur 







LA Double 
LÉ F | JF = LEE Ag hauteur 
5 ; MEN Couleur 


Es Ea+C 1#MIDSC AS, T1: Re 
PRINT: PRINT : PRINT 


FRIHT OS CHRME die: 
PRIT OM OMG 
FRIHT CHERE 4 

Me RTGHTEE HS, GS CELEF TE 46, LEME 6 is 





4 


JU 











Din 


ARLES 


_ 
ni 


AIT 15 
CLS 
GOTO 35 


Folie mm if if RE 
E 
D LH 


mi CA Pit 


Di 
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COULEURS BACKGROUND 


Ci-dessous, nous changeons la couleur de fond (BACKGROUND) de 2 parties de l'écran. 


De la même façon, nous pourrions changer la couleur d’écriture. 


Il suffirait d'écrire : 225 POKE AM+X1, C 

























Ë 
Fond vert 
: UN 5 
Fond 
bleu clair 
Fenêtre BACKGROUND 
14 FEM FEHETRE BACEÉGEOLIHE 
26 : 
34 HIRES 
35 IHE1 
] Lire pars 
# ei sus GOSLIE 2 
Eee CUSLIE 








El 





5: GOSUE 





FI TO FT STEF FI-15 


+ LE EC, 1 





DO Ji 
SNS © 


JEXT 
RETURH 


D IR in 


1 E 


STOF 
RM SPOM FENETRE 


Et 1 


= 
A 


:POKE AM+41+L,16 
:FPOKE AM+A1, 1640 
HEXT A1 

FETUFH 


QE MDEFIR 


NNOMRMII TUE mme he mini 
SRG: 


AE 





+Y1#48 TO A6 EEE I+H Ed STEF 4 
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HISTOGRAMMES 


Grâce aux couleurs, l'ORIC-1 permet une présentation attrayante des résultats. Nous 
présentons ci-dessous 2 types d’histogramme. Les valeurs sont contenues dans une table 
VNTE(). L’échelle est calculée automatiquement. 











Avec DRAVW : 
700 
600 
500 
JANV FEV MAR AVRIL | 
T 
L Fond jaune 
Avec FILL : 

















[Janv FEV MAR AVRIL 
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Histogramme avec DRAW 
14 FEM HISTOSRAMME 
LA: 





HE 


Gi DATE IF 
Së DATA P 
ra DATA 
34 DATA JU P'ÉAEI 

3 FOR Mel TO HM 

REA MOLSC MD. WHTEC HW: 
HEXT M 











EN 
ai 


REM = 
5: INK1 : PAPERE 
: Be 1 50 :REM Depart a 


ART EX 





AE PA REN Mautetur maxi 
EME mn RES Recherché masi 
Me=MHTES 1 

FOR Mzz TO Hn 

IF VNTEGMOIENMS THEH MEzMNTES M 

HEAT M 

ECHSHECER." IT 

REM- ae os one mu 
CURSET 46,6, 1: DFA HET. 61, 1 
244 CLURSET #04, %8, 1:DFAN 4, -HECR., 1 
229 REM---—— mme me ae Affichage fn À 
225 FOR AN=dMSé6 + A+ Ed TO GA AE KA STE 4 
226 :PÜÛKE AM+£: 5 

227 NEXT AM 


238 FOR Mz1 TO Hn 
235 : CURSET #42 T4 M1 1, EE, 
236 : FOR I=1 TO LEHCMOIE#ENM 
37 ASASCEMIDSE MOT EE MA, T1 
238 : CHAR #41 
239 :  CURMOY 6,64,5 
248 : HEXT I 
245 HEXT NM 
289 RENM----- Courbe 
294 CURSET AA TA-VMTES 1 #ECH, 1 


OT Si T5 M M LI LB 


Mb pa pe he pa pe pe ie a pet hé 
J 


[En 
J — 


DE Pa mi EN 






= 


ren 
œ 
e 








[c] FOR. M=Z TO Hi 
FA Dai VHTEG M O-MHITES Me 1 TEE CM 
[a] CRAM T4, 0, 1 

A HEAT M 

4 FENM--———— 
[a] FÜR Mai T 
Ê Ve 2 j'oule 


mme MF ICHAaUE Male. 
Hi 
2 ste 







HE Ha is LG lat ai tai 
Fo te LD Co 
RAR EURE EEE 


HE T mt 


r. 
pe 
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e 14 FE HPEILL HISTOGEÉAMNE AVEC FILL 
Histogramme :; ‘ 


avec FILL 





EX 








Ü 


DATA JIAHY, SGA, 
DATA MAE A, 
DATA MAT, : 
DATA JUTLL, FE 
FOR Mel TE HI 

CREAD MOT #E M, MATE M 
HET 1 


AVR, FA 
JUIH, A6 


Ex 
Et 


Si D 


Fi iQ 
=, _ 
Sn: 


5 
3 
1 
l 
1 
l 


LEE 


me 
ni 
ERESUR 





LS Hs 





THEM Mi hTE PI 


A STEF 4 







eee meme POLICE MU LEURS 


Rica La 








TO L EH: #4 
OC FRERE 
“a 4 C LIFMOW 6. 45 
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REMPLISSAGE D'UNE FIGURE 


Le problème consiste à remplir une figure fermée déjà dessinée sur l’écran. 


Parcours du périmètre : 


À l’aide de l'instruction POINT (X,Y), nous parcourons le périmètre de la figure et nous 
stockons tous les points dans 2 tables X{) et Y(). 


Point courant 


On cherche 
le point suivant 

















Remplissage : 
Il suffit de choisir un point à l’intérieur de la figure et de la faire pivoter autour de celui-ci. 





On fait pivoter 
une droite 


Nous pourrions calculer le périmètre de la figure en faisant : 
Périmètre =} SQR(DX*DX+DY*DY) 
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Remplissage d’une figure 


1 FEM REMPLISSAGE C'UHE FIGURE 


f : 
2 DIN A1547, 1540) 

5 REM----—————— Trace d'une fiQure Pour essai 
G HIFRES 

A CURSET 24,2,1 


ñ DRAU £@,16.1 
CEAU G,34.1 
CDRAU -24,64,1 
CRAU G,-4f,1 
REM-——————— Recherche Premier Point 
FOF Y=A TO 193 
:FOF: : *=Ù TO 


HEXT X 
HEXT 
PRINT "ECRAN VIERGE" :STOP 


FEIHT "PREMIER POINT: "x 
RElssssssesesesessss Recherche de Points 


RE Er 


Li 


JRTSSESS ES NRA 







La 


Demi ee LOU TS I EN ER CN & Go PO lo fout 





:REM Foint courant 





FOR F=5 TO 1494 
FOR YizTC-1 TO YC+1 :REM Recherche Point suivant 
FOR #1 -1 TO xC+1 
IF #l=kC THEH IF YC=Y1 THEN 274 








CRE NINEUERS 
Un & Co PA 


CR M D 






ñ 


IF POINTE #1. V1 -1 THEN 278 












FOR Iz1i T0 3 :REM Retour arriere 
IF #Ii=HiP-Ti THEH IF  Y1=YCP-I15 THEN 274 
ME T . 


YC=Y1:GOTO 314 





HEXT EXT 
PRINT "FIH°::G0TO 7 


34 THEN IF YCeé3 THEH FA 
Past 
LEE: CUIREET CC 1 


34 
:RENM Centre 








F DRAM D 
F34 HEXT I 
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RECFIERCFIE 
D'UNE SOUS-CHAINE 


Il est fréquent que nous recherchions la position d’une sous-chaîne dans une chaîne de 
caractères. 


CHS CCHS : 


DONNE-MOI LE PRODUIT DE 


Dans le programme ci-dessous, l'opérateur pose la question ‘DONNE-MOI LE PRODUIT 
DE 20 PAR 10’. En recherchant les positions de ‘PRODUIT DE’ et de ‘PAR’, nous 
répondons à la question. 


Recherche d’une sous-chaîne dans une chaîne 


19 RENM RECHERCHE C'UHE SOUS-CHAIHE 
28 RENM CAHS UHE CHAIHE 


38 : 

44 CLS:IHPUT "otre Question "30% 

45 : 

Sa CHé=Qé: CCHS="PRCQUIT DE":GOISUE AA 

éA : 

ra IF F=4 THEH 4f 

84 

34 F18= RIGHTS O6, LENS Gé 5-P-14 : Fi= MALE FI 0 
14 

114 CHESF 18: CCHS=" PAR": GOBUE 24 

12 

124 IF P=s4 THEH 354 

14f 

154 F2S=RIGHTSCF 18, LENCF18)-P-3 3) FRSVALCF28) 
164 

174 PRINT: PRINT Fi*#FE 

154 STOF 

LA RE SRG de recherche 
sga LeLEHECCHS 

218 : 







FOR P=i TO LEHECHG-L 


234 IF MIDSECH&. FL AECCHS THEH 246 

244 :HEXT F 

254 P=x 

264 : 

344 RETUFH 

EUH 

nd 

Votre Questiont DONNE MOI LE PROCUIT CE 24 FAF 19 7 
al) 
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APPRENTISSAGE ANGLAIS 
AVEC PRIORITE 


Nous choisissons un mot français au hasard dans la liste des DATAS. Nous l’affichons et 
demandons sa traduction anglaise. 


En cas de mauvaise réponse, nous stockons l’erreur dans une table ER$() et lorsque 5 erreurs 
ont été commises, nous affichons les mots de la table des erreurs. Ainsi les mots mal connus 
sont présentés plus souvent. 





Table des Table des 
erreurs mois justes 


Voisinage de la réponse 
Nous pourrions vérifier si l'élève a seulement oublié une lettre (voir page 47). 
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Apprentissage anglais avec priorité 


A 
ai 


dis OO CO MUR OUR DSL DNS AOLS 


DOOGMOMJNTOTSDS ESSOR 





FRENM AFAHG APPRENTISSAGE ANGLAIS AVEC PRIOEITE 


HMOT=17 

[LS 

CATA LIVRE, BOOK. TETE, HEAL 
DATA TABLE, TABLE: LUMCT , MOHDA 
DATA CHAT. CAT, GEHT. TÜTH 
GATA CHIEH, DOG; HE, HOCISE 


DATA MAISOH, HOLISE 
DATA VOITURE, CAF 

DATA JAMBE, LEG 

DATA FROBLEME . PRUELEN 
DATA BOITE, EX 

DATA BRAS: ARM 

DATA FIED, FOOT 

CATA CHEF,E0S5S 

CATA CHAUSSURE, SHOE 


IF HERR%S THEH SG 


FESTORE 

= IHTERHDE 1 UCENMOT Tr fx THEM GES 
MAS 

FOR Iz1 TO X:READ FR. ANG#:HEXT I 






REAC FRS, ANGS 


PRINT : PRINT Fi" "5 
IHPUT "Anglais "ik 
IF R$=ANGS THEH PRINT:PRIHT "OEM: PRINT :GOTO 348 


A REM---—— mme Ajout erreur 


FOR I=1 TO 164 
CIF ERGCI EU OUR ERGCT OS UE THEN ERSC TSF RS: TRSCI IS ANGS: COTO 46 


HET TI 
HERR=HERE+1 


FEINT :FRINT "Erreur la bonne reponse est: ANGS:FRINT 
GOTO 346 
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REMES ST sesesses Tirage table dez erreurs 
IF HERRSS THEH 344 


H= INTCRHDE 1 DXNERR +1: IF H=XA THEN © 
IF ERSCH="#" THEN 595 
HAS 


FRG=ERSC x 1: ANGHETREE 4 


cn 
= 
cn 


524 PRINT:PRINT FR$i" "; 

539 IHPUT "Anglais ":F$ 

S4G IF RS=ANGS THEH FEINT:PRINT "OK: PRINT: ERSE 4 ne MU: MERREMERR- 1:06 
OTO Sa 

Sea 

564 PRINT :PRINT "Erreur la bonne réponse est: "3 ANGS:PRIHT 

574 GOT SA 
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Deuxième partie 
EDUCATION 


30 PROGRAMMES 


TRACÉ D'UN DESSIN DÉFINI 


EN DATA 


Le programme ci-dessous trace une figure en reliant entre eux des points définis en DATA. 


Tracé de dessin défini en data 


REM TD TRACE DE DESSIN DEFINI EH DATA 


REM CARTE DE FRANCE 


DATA 199,91 

DATA 193,82, 196,76, 115.85 
DATA 139,94, 148,149, 145,115 
DATA 136,130, 142,139, 142,133 
DATA 145,154, 148,164, 148,166 
DATA 142,169, 136,172, 124,172 


94 DATA 113.184, 199,184, 97,181 


389 


DATA 94,184, 82,175, 83, 157 
DATA 85,148, 85,139, 3,127 
DATA 79,118, 64,118, 64,115 
DATA 61,112, 61,199, 67,197 
DATA 79,166, 73,166, 82,143 
DATA 85.196. 82,97, 85.94 
DATA 88,97, 94,97, 148,91 
DATA 999,933 

REM----—--—- 

HIRES : INK6 

READ #A, YA 

CURSET #A,YA,1 


RERD X,Y:IF XK=999 THEN 299 


DRAW X-XA, "YA, 1 

KA=X : YA=Y 

GOTO 239 

REM--—— Copie imPrimante 
LPRINT 

FOR Lz89 TO 199 STEP 6 


‘FOR C=24 TO 199 STEP 3 
: F=ÿ 
: FOR I=Q TO 2 
IF POINTCC+I,L =-1 THEN Fz1 

: NEXT I 

IF F=1 THEN LPRINT "X";:GOTO 369 
5 LPRINT " "; 
:NEXT C 
:LPRINT 


MNEXT L 
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TRACÉ D'UN DESSIN 
PAR SEGMENTS DE DROITES 
ET DIGITALISATION D'UN DESSIN 


Le programme ci-dessous permet de déplacer un curseur à l’aide des 4 flèches >< 7 |, de 
‘valider des points et de tracer des droites entre ces points. 


e Pour ‘valider’ un point, nous appuyons sur ‘V’. 
e Pour tracer une droite entre le point courant et le point valide précédent, nous appuyons 


sur ‘T!. 






1" POINT 


Pr 
A à 


V': POUR VALIDER 
T: POUR TRACER 


<— 


<B> 





Le programme permet également de ‘digitaliser’ un dessin : 


e Nous collons sur l'écran une feuille transparente sur laquelle à été décalquée la carte de 


France par exemple. 
e Nous déplaçons le curseur sur le périmètre de la figure et périodiquement, nous ‘validons’ 
les points. Les coordonnées X et Ÿ des points s'affichent alors sur l'imprimante. 


Carte de France 
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EXTENSIONS POSSIBLES : 


e Nous pourrions stocker les points ‘validés’, dans 2 tables X() et Y(). 





e La suppression et l'insertion de points permettrait de corriger le dessin. 
e Les tables pourraient être sauvegardées dans un fichier. 


Le programme ‘SIGN’, ci-dessous, reproduit une signature ‘digitalisée’ avec le programme 
‘TDES’. 


Digitalisation de dessin+tracé par segments 


14 PE TOES  DIGITALISATION CE CESSIH4TRACE FAR SEGMENTS 









12 

24 

al MIRE IHKE 

24 “2104: "=144 :REM Coordonness depart 
44 | : 

F4 

84 Cs= KES : IF Ce UN THEM 15 EM Attente fraphe clavier 
an CURSET 4% 

144 CURSET %. #64 

114 GOTO 8 

124 : 

134 IF Tzi THEH CURSET %i 

14f 

154 C= ASC CS 

164 IF CzS THEM Hex-1 

1764 IF C=3 THEH +] 

189 IF C=18 THEH  Y=y+#1 

199 IF Csil THEH ‘= 1 

ed : 

214 IF Cée'E" THEH CURSET #4 

224 IF Cés"V" THEN CURSET liées: et: COSUE 544 


2e IF Cé="T" THEN CURSET #A. 4,1: DRAM HP, A, 1 fe ART: GÜSUE 


224 T=@:IF POINTÉX. o=-1 THEN Tel 
24fñ GOTO 4 

434 : 

594 LPRIHT &,%:RETURH 
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Signature 


REM SIGN SIGNATURE 

DATA 127,161; 118,102, 196,103 
DATA 94,194, 82,194, 73,194 
DATA 65,193, 62,182, 61,191 


69 DATA 62,93; 64:97; 68,95 

76 DATA r4,93; 82:91; 94,90 

84 DATA 192,91, 197,34, 119,93 
96 DATA 112,94, 113,96, 112,98 
198 DATA 119.99, 113,1@0, 116,181 
118 DATA 118,194, 118,106, 117,193 
129 DATA 114,111, 188,113; 182,115 
138 DATA 34,117, 85,118; 73,118 
148 DATA 66,117, 62:116; 61,114 
159 DATA 62,112, 64,111: 68,199 
206 DATA 339,999 

219 REM-------- 

215 HIRES:INK6 

226 READ #“A.YA 

225 CURSET XA,YA,1 

228 : 

234 READ X,Y:1F #=993 THEN END 

249 : 

254 DRAW X-4A, "A, 1 

269 AA=K:YA=Y 

276 GOTO 234 
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31 


CARTE DE FRANCE 


Le programme ci-dessous permet de tester les connaissances en géographie. Il existe 2 modes 
d'utilisation : 


e Nous présentons la position d’une ville et nous demandons le nom de la ville 
(Mode ‘IV1'). 


QUELLE VILLE ? ste 
OK 





e Nous demandons de situer la position d’une ville. L'élève déplace un curseur et 
valide la position choisie par ‘V’. Nous donnons à l'élève l'écart entre la position choisie et la 
position exacte. (Mode ‘IV2’) 


Position exacte 


DY 


Position choisie 
DX 


DISTANCE = SQR (DX %X DX + DY X DY) 
PARIS ? 
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Carte de France 


15 REM CARTE DE FRANCE 


SLRA | 


1 DIM AMC SE, MC DE, V2 

24 : 

34 DATA 1964.31 

44 DATA 143.82, 146,76: 11585 
SA DATA 134,54, 148.194, 145,115 
EG DATA 136,139, 142,134, 142.133 
F4 DATA 145.154, 148,169, 148.166 
84 DATA 142,169, 136,172, 1£d.1FE 
36 DATA 115.184, 149,184, A9, 141 
144 DATA 3d4.1%4, B2.175, CPS ET 
1184 CATA 85,148, 85.139, Fier 
124 CATA FH.115, 64.118, Ed, 115 
139 DATA 61.112, 61.194, ra LAS 
144 DATA FA 1Gé, 3.186. 8e, 144 
154 DATA 85,196, 82,97, 5. 94 
164 DATA 48:97, ad4,37, 148, 91 
165 DATA 499,999 

PQ REMe- a ne mme a oem ne au me YILLES 
175 DATA 94,143, CAEH 

176 DATA 1993,1Gé6, PARIS 

177 DATA 146,115. 0RLEAHS 

178 DATA 97: 115LE MANS 

184 DATA F3,118, LORIENT 

182 DATA 67.112.EREST 

184 DATA 37,133, POITIERS 

186 DATA 143,145, LIMOGES 

188 DATA 91.157, BORCEALI 

194 DATA 139,153, LYON 

192 DATA 136,145, GRENOBLE 

194 DATA 126.169. MARSEILLE 

196 DATA 146,172, TOULOUSE 

248 DATA 9939,999,2727 

219 REM----————— 

215 HIRES:IHEZ 

224 READC “A,TA 

225 CURSET A. TA, 1 

228 : 

234 READ #aV:IF #=999 THEH 5364 

24 

234 DRAU A A À 

LEA Az: vais 

274 GOTO 254 

DOG REM ee neo ne ae ae ea ee 
295 V=f 

344 READ VV: IF “2999 THEH HV=Y:GOTO 44 
2G5 AREA 

CI UNE EE DT RETENUS: 

324 GOTO 344 
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33 


34 


AQA REMz=zzszzssesseseseseseessss MENI]) =esmess 


49 
41 
415 


INPUT "MODE CIV1,1V25 "mg 
IF M&="IU1" THEN GOSUR 1444 
IF M$="1/2" THEH GOSUE 1244 


4sf SOTE 4a 


464 
46 
474 
475 
486 
485 
434 


934 


1424 
143 
1448 
1454 
14984 
1194 
1114 
1124 
1244 


mm 
Let Eu ai Ca) Lo 13 Ci Où Co Cut Po Fo Pi) Fa 
LD 0 JOIN Rio loe Dig 
DURS Sen © © SES 


1446 


435 , 


FREM===zzss-esessesesssz [NTERROGATIONH VILLE =2x= 
M=INTE RHDÉ 1 ENV +1 

CURSET AW M, VC 1 

INPUT MGUELLE VILLE MiVG:IF Vée"FIN" THEN RETLEH 
IF Véewgéwt THEH PRINT "OK: UAIT 244: GQTQ 1144 


PRINT "NOM! C'EST ":V8CW):UAIT 200:C0T0 1100 

CURSET HVCWVUC V3, 0 

GOT 1444 

REMe=s=nescssssscs INTERROGATION PRR VILLE see 
= 100: Y=100 


MeTHTE ND 1 EM +1 


5 PRINT "OU EST SITE "iwgéwo 
5 PRINT MITILISER 4 FLECHES PUIS ‘w°n 


CH=<KETS : Cé Ut THEN 1334 
CURSET #,%:,1 

CURSET A 

GOTO 1254 


IF T=i THEN CURSET #1 





CSC C 

IF Css 

IF C=3 

IF C=i4 

IF C=11 THEH Yav=3 
IF Cé="v" THEH 1644 


A T=G:IF POINTE“, )=-1 THEH T=1 


GOTO 1254 


A CAM Uk: Ds MC M 


D=SGRE DékCié + Ci EC 


A PRINT "VOUS ETES 4 "iC#14i"Em" 
A CURSET KVM, UC U 1 
3 HAIT £f4 


GÜTO 1244 
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TRACÉ DE DESSIN EN RELATIF 
AVEC ECHELLE 


La carte de France du programme précédent est tracée à l’aide de coordonnées absolues. 


Sur le programme ci-dessous, nous spécifions en DATAS les coordonnées relatives au point 
précédent. Ainsi nous pouvons agrandir ou réduire la taille du dessin. 


Pour obtenir les coordonnées relatives à l’aide des coordonnées absolues, nous faisons : 


34 DATA 194,31 ‘REM 1 er Point 
49 DATA 143,82 

39 DATA ....., 

249 DATA 333,335 


2168: 

349 READ #4, "A : der Foint 
319 : 

329 READ #.%:IF #=999 THEH STOF 
334 : 


349 Césk-#f: Dre" 
354 PRINT C 





369 HAS: YA 
374 GOTO 324 
RUH 

— 

3 -9 

3 6 
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Tracé de dessin en relatif avec échelle 


36 


14 REM TRE TÉACE DE DE 






1 

29 DATA 199, 
44 DATA 3:-9, 
Sä DATA 
é 








CRC 
15,4: 

A CATA 4,15 

F4 CATA 3:15: 

84 CATA LICE 

34 CATA — 

144 CATA — a 

114 CATA 3: 

126 DATA —6 

159 DATA 4, -5 

144 DATA € 

154 CATA %, CET 

164 DATA 2 5 Has 


174 DATA 6. -E 
CATA 999,5 


:REM ECHELLE 





YtIF DK 


READ Ds, Cr 4= 
HECH , CHECH 


DRAM Dix 





33 THEN ST 
‘1 


417 nus ere = A+CYKECH 


3 ue A: YA 


ORIC POUR TOUS 


SSIH EN RELATIF 
:REM 1 er 


AVEC ECHELLE 


Point 


TÉLÉCRAN AVEC ÉCHELLE 
ET SAUVEGARDE 


Nous utilisons ici le principe bien connu du ‘TÉLECRAN" : 

En déplaçant un curseur à l’aide des 4 flèches Î | <—-—, nous représentons un dessin en 
laissant une ‘tracé’ derrière le curseur. 

Mais en plus, nous stockons dans une table MDES%{() tous les déplacements. Ainsi, nous 
sommes capables de dupliquer le dessin réalisé dans une autre partie de l’écran avec une autre 


échelle (1, 2 ou 3). 


MDES %( ) 





Le dessin que 
vous avez réalisé 


Le dessin 
reproduit à 


l'échelle 2 





Il est prévu un mode pour sauvegarder la table MDES%() sur cassette. Ainsi, le dessin peut être 
réaffiché et amélioré. Si vous ne désirez pas sauvegarder les dessins, les instructions après 760 
ne sont pas nécessaires. 

AMÉLIORATIONS POSSIBLES : 


Nous pourrions gérer plusieurs dessins : 


e Une table à 2 dimensions MDES(,) nous permettrait de gérer plusieurs dessins indépendants 
simultanément. 
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e Le résultat d’une composition de dessins pourrait être sauvegardée par une sauvegarde 
directe de la mémoire écran par : CSAVE «DES », A40960, E49000. 


e Un dessin pourrait être effacé en utilisant MDES() (comme pour une duplication), mais avec 
CURSET X,Y,0 au lieu de CURSET X,Y,1 


e L'affichage de texte se ferait en spécifiant à l’aide d’un code (CTRL E par exemple) que les 
caractères à suivre sont du texte. 


MDES( ) 





Début texte 
CTRL E 





Fin texte 
CTRL F 
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Télécran avec échelle et sauvegarde 


14 FEM SCES TELECFAH AVEC ECHELLE ET SAUVEGARDE 
15 : 

16 CLS 

17 DIM MDESXE 5965 

z4 GOSUB 24443 * POUR SAUVEGARDE SEULEMENT 
sg : 

64 CLS 


F4 PRINT "CCES : COMPOSE UN CESSIH" 


75 PRINT UTILISER LE 4 FLECHES" 
8@ PRINT " F POUR FIH DESSIN 

99 PRINT "ADES : AFFICHE UN DESSIN COMFOSE" 
92 PRINT "S  : SAUVEGARDE DESSIN 

95 PRINT "L  : LECTURE DESSIN" 

DB REM----—— 


144 PRINT: INPUT "MODE CCDES.ADES, SL: "M$ 

114 IF M$="L" THEH GOSUB 845 

124 IF M$="£" THEN GOSUB 344 

139 IF M$="CDES" THEN GOSUE 174 

135 IF M$="S0" THEN GÜSUE 36464 

136 IF M$="LD" THEH GOSUE 4GGf% 

144 IF M$="ADCES" THEH GOSUE 435 

154 GOTO 144 

169 REM=====ss2=esssesezz COMPOSITION GESSIN ====z 


188 HIRES 

185 PRINT "B:EAISSER L'LEVER F:FIH": 
194 X=144:"=18% 

208 MODES 1 2=4 : MODES XC 2 = 

218 P=3 


248 CH=KEYS:IF Cé<it" THEN 36 
254 CLURSET #,%,1 

264 CURSET #.%,@ 

276 GOTO 24% 

346 IF T=1 THEH CURSET %,%,1 


314 IF C$="L" THEH L=Z 
315 IF C$="F" THEN RETURH 
316 IF C$="E" THEN Lai 
317 IF C$="E" THEN L=4 


319 IF L£2 THEH CURSET 4% 1-1 
329 C=ASCE CS 

339 MODES P 3=C:P=P+1 

354 GOSUB 464 

374 T=@G:IF POINTCH,Y)=-1 THEH T=1 


394 GOTO 24@ 
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414 IF C=$ THEH IF #51 THEM #41 
424 IF L=3 THEH IF #€239 THEN Kz4+l 
434 IF C=14 THEH IF #<193 THEN Y=#+1 
444 IF C=11 THEM IF #1 THEH =f-1 
454 FETURH 


saa PRINT "ECHELLE €1,4,39 "i:GET E$:PRINT E# 
SAZ ECH=VALLESS:IF ECHE1 OR ECH?3 THEN RETUEH 


S 
on 


D D D SSD CM © 0 9 M D D 00 4 UN Po D 


PRINT "COULEUR EHCRE (4,1,2,,,,79 "i:GET Ef$ 
PRINT E$:IF WALES +4 THEH INK VALCES 
PRIHT "EFFACEMENT C0/Hi "3 :GET R$ 

PRINT K$:IF K$="0" THEH HIRES 

IHPUT "x NE Le #=4 THEH = Se 12 

IMPUIT OMS OMSYCTF Ye THEM Y=MDESXE 

GOSUE 35 
GOTO 544 


Le 

FOR F=3 TO 34 

CeMDESACPFI:IF Ce THEH 64û 
:IF Crég THEH Lei 

IF Ceéé THEH Left 

:IF site THEH Le 

:FÜFR .Jzi TO ECH 


CN EN CA CA EN EN CNE NE EN 


DD ID NME BR Pense be be 15 (Or 


si] ss Le - THEH 616 

La ! CURSET del 

614 : GÜSUE 444 

SE :MEHT I 

634 HEXAT F 

Ed FETLEH 

raOREMSSsrassenness LECTURE CASSETTE 

844 PRINT "AFFUYER SUR €PLAYY PUIS <RETURH>" 
814 GET “5% 

815 TEXT 

824 PRINT "LECTURE CASSETTE" 

834 FÜKE #67. ‘ 1:344 EALIDS 

&44 CALL 1487, MOGESX 

854 PRIHT:PRIHT "LECTURE TERMINEE" :PRIHT 


HIFES : HeMDESKE 1: VeMESkE Si GOGUR 535 
GOT 244 
DEN RONMRERTRENAAEETREe SHUVEGARCE CASSETTE sm: 


5 CG 0 


PRINT "APPUYER SUR RECORD: FUIS €RETURHE " 
GET *#$ 

FEIMT "SAUVEGARDE": PRINT 

POKE #67. à 244 EAUCS 

CALL 1424, M0ES 

FPRIHT:PRIHT "SAUVEGARDE TERMIHEE" : PRINT 
FETLIFH 


DD ES SD RM SR NS DOS 


MMM bidtloe Dion 


NO 0 D 0 D D ED 0 
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Routine sauvegarde/lecture table 


12994 FEM---— ee ROUTINE SAUVEGARDE-LECTURE TABLE -- 
19995 RENM Cf revue ORIC sePtembre 1985 où Programme ORIC EASE 
19996 


zG86A CLS :PRINT "ATTENDEZ" :PEINT 

20845 A=#BSAG:READ D$ 

26816 FOR I=1 TO LEHCDS: STEF & 

AGE : RU A Re UE AW: ASAHITHEST I 

20934 READ D$:1F D$<>"Z" THEH 24814 

26444 DOKE #4@@,#4A4C:DÛKE #4GE, #ACES CÜHE #d4fd, HEZSE 

2445 RETURH 

20059 DATA 555295992339 44 3636 SSSGGBESGSCACÉESCOBAESASESSACEESASSS EE 

CéESAS 34 A 

20864 DATA CéESZOEERSEAATESZ4SE 1 ASSISES LAG4ESLSÉGAGABE T1 FEAT TARA 

G2E1419308 

260870 CATA GGSSDAFSESCAF AGE 101 2GCEESCSDAFSEGCSBESADEE AREAS 

GE2ADÉESZA 

24984 DATA SEE6LASAESCALSOGF SEGSAESSSSSEASAESSSSA4AGALE I CECSSSCSEICE 
a 





12HAEES 


ES34898624 
26494 DATA GAES4CESCAZGEERSEAERE4Z 4261 AASZGSEESZLAG4ESZSE GARAGE) E 1 FE 


1C24F@C4fAA 

28188 DATA ESAGGGCAF AGSESASGEES 101 CSDAFSAGGLEGC AGE 16 1EE0ÈFELACEBERE 
D9É6615A345 

28119 DATASSA1SS01ASSGALESGLASAEC4É 1ESÉLÉALOCAESZD1SESAAUSE 1 CEAASSE 
1CEESY1EE 

20129 DATAGICASS3386346416ASCE6SSSESE 1ASCFES 348 SEZAQAAE 1 CEZGF 601855 
FSe4é6gssa1 


20120 DATASA4ASÉALYESQACIECFAASACEACF ACELAAALAALHESGASELTESB4Z2GES00Z 
4260 1644E6 

29149 DATALAAIESA4CEACFALAASÉLSGELILAELHAIQAS20860 1SGAEAALAEZO0IGFEZ 
AééCiEGFE 

24154 DATACS24DAGÉ6ASFFESZSCAACCEZSDGGF AS SES SEdSAGSSGAA2OEZA 
GSSESAGSE 

SR NT Rens A10H44E4AGFG1FAGGGE 1CECSCSE4DYGBGEASESD 1CEF AG 
EC8B1 ë 

s417f4 DATAÉSCEAACSEICESSC FSACTSS6A2GAA4ESARZAA4CESCASS 

28184 DATA Z 


30 PROGRAMMES | 41 


ORTHOGRAPHE 


Nous présentons à l'élève un texte dans lequel figurent des fautes d’orthographe. 


En face des lignes contenant des fautes, l'élève doit frapper le mot erroné en l’orthographiant 
correctement. 





Entrer la bonne 
orthographe 







Mesdames, Messieurs, vous 


ayant convoqué après convoqués. 
interruption de plux de plus 
deux ans... + 





Nous avons prévu 2 niveaux de difficulté : 


© Les mots mal orthographiés sont distingués par une couleur différente de celle du texte. 
© Les mots mal orthographiés ne sont pas repérés. 


La ‘dictée’ définie en DATA est lue dans 3 tables. 


TXT$ 


Mesdames, Messieurs. 
une interruption daplux si 


MIUSTS$ 










ER$ 





Erreurs Mots justes 
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Orthographe 


14 REM ORTHI OETHOGRAPHE 

15 ES=CHRSE ZT 

17 IH 

28 : 

34 DATA "Mesdames. Messieurs, vous". # # 

an DATA "auant convoque apres", LMI A LUE OO ALL E. 
SA DATA l'une interruPtion de Flux", Flux, Plus 

64 DATA "de Auingse ans Pour", quinée, Quinre 
F9 CATA "m'entréetenir avec vous", #: # 

84 DATA "de ce Que le tamPs ecoule", tamPs,  tenmPs 
34 DATA ecoute a aPPorte de meuf", # # 

144 DATA #.#.# 

254 FOR LGzi TO 24 

264 :READ TAT$&C LG 5, ERRSE LG 1, MULISTS#É LG 

274 IF TAT#CLGoe" EU" THEN HLELG: GOT 296 

284 HEXAT LG 

290 FEMeszsseseseseseseseezmese MENLI masesssecess 

244 CLS 

BA PRINT SPCCGNUAT : Affichage texte" 

228 PRINT SPCCS5:"ATF : Affichage texte avec fautes" 

408 PRINT:IHPUT "Mode ":1M$ 

41A IF M$="ATF" THEN GOSUB 995 

420 IF M$&="AT" THEN GOSUE SA 

498 GOTO 364 

SQ0 REM=s==emmommscesusesse HMFFICHAGE TEXTE SANS ERRELIRE x 
519 CLS:PRIHT 

520 FOR LG=zi TO ML 

530 PRINT TXTSEL(G 

540 NEXT LG 

554 : 

564 GOSUB 1245 

570 PRINT:PRINT "APPuygez sur <RETURHE M:'GET #4 

580 RETURH 

299 REMszezsscecessesecess AFFICHAGE TEXTE ET ERREURS sex 
995 CLS :PRINT 

1808 FOR LG=1 TO HL 

1414 :LIGSETATSE LG 1: ERRÉSERREE LG 1: MJUISTS=MIUIST SE LG 1: GOSUE 446 
1914 :IF F=G THEH PRINT LIGS$:GOTO 1454 

1915 : 

1929 :GHELEFTSELIGS, F-1 1: DSSRIGHTSELIGS, LEHCLIGS pe +1 
1834 : 

184 PRINT Gi" "eg; "EM": ERR#:ES; "0": DS 

1945 


1954 MEXT Li 


1186 
1114 
1124 


GOSLIE 1245 


PRINT:PRINT "APPuuez sur €RETURHS M:GET #5$ 


1139 RETURH 
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1285 FRINT CHR 204 5; ‘FEM minuscules 
1247 PLOT 5,2%, "Entrez les corrections" 
1245 HER=A 

1214 FOR LGsi TO HL 






1224 : HKLe?29:YLeLG 
1224 : GOSUE 4940 

1244 : IF MIUSTSCLGI= "#4" AND LIGé="" THEN 1200 

1245 : IF MJUST#LG<?"E" THEM 1258 

1247 : PLOT 5.21,"Fas d'erreurl':MAIT 15@:PLOT 5,21," 
:GOTO 1340 

1249 : 


1254 : IF MJUSTSLONCOLIGS THEH PING:HER=HER+ 1: GOTO 1220 
1304 HEXT LG 

385 PRINT CHRSC 28): :REM Maiuscules 

247 ES=STRSCHER 4" Erreur(s":PLOT 5,21,ES$ 

1214 RETLRH 

2994 REM---—— 

2991 : 


2992 


mr 


3464 L<LEMCERRS 

3014 FÜR F=1 TO LEMÉLIG#-L+1 

3424 :IF ERRSEMID#CLIGS.F,L THEH BETUEH 
3939 HEAT F 

3644 Fa: RETLUREH 

3998 REM--- em INPUT AVEC KE'T% 
4864 LIGé$="" 

4414 : 

4424 LeLEHELIGS à: PLOT &L+L. "LL. 134 

4834 : 

444 CH<KEYS:IF CHe"" THEN 4g4f 

das CEASCE CS 

4458 IF C=13%3 THEH FLOT #L4L. fl," 0 RETURH 
Gén IF CS ier THEH 4166 

4a7a : 

4084 IF LE THEH LIGSSLEFTS#CLIGS, L-1 1: PLOT LL Lt GOTO 424 EL 
SE 44 

443à : 

4144 IF CESSE THEH FIHG:GOTO 44 

4114 LIGS=LITGS+C# 

4124 PLOT 4L.YL.LIGS 

4134 GÜTO 4426 
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APPRENTISSAGE DE MOTS 


Nous affichons une silhouette d'objet et nous demandons le nom de cet objet. Si une seule 
lettre de la réponse est oubliée (ou fausse), nous affichons la bonne orthographe du mot. 


Nom? BOITE 7 





Nous avons représenté six objets : 





Boîte Pomme Etoile Maison Bougie Brouette 


Ces objets sont dessinés par segments de droites (voir digitalisation d’un dessin). 
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Apprentissage de mots 





Hombre de mots 





= 
DR I 


De D oo 
je mini 
LE 
La 


- Fan. - 


MD- - 


JD 


16, F5 
113.86 
147,142 
31.186 
ré, 36 


113,126 
143,63 
146,54 
114,54 
114.64 


14 REM AFMOT  AFPRENTISSAGE CE MOTS 
£A : 
25 HMOT=6 
34 : 
34 REM---- BOITE 
189 DATA 86. 148, 
114 DATA 147,87, 147,184, 
124 DATA 86:87: 31.669: 
154 DATA 187,87, 147.144, 
148 DATA 112.89, 147.67, 
142 DATA 92,854, 999,999 
145 DATA BOITE 
154 : 
194 RE POMME 
248 DATA Sara 393,74, 
214 DATA 148,77, 112.81, 
224 DATA 113,42, 111.98, 
234 DATA 142.145; 36,186, 
244 DATA 55.145. 8.143 
ESA DATA F6. 88, Feel, 
264 DATA 88:75: CPE 
284 DATA Si br 399,993 
286 CATA FOMME 
294 REM--—— ETOILE 
344 CATA 114.79, 11786: 
319 CATA 122,194, 25.121: 
3624 DATA 95.121, 38, 1424 
534 DATA 154,83, 149,74, 
S44 CATA ÉTOILE 
254 FENM----——— EQUGIE 
DATA 191.68; 191,128: 

A DATA 119.74, 191.68. 
284 CATA 147.64, 197.59: 
3934 DATA 114.49, 112,47; 
444 DATA 11222: 115:58: 
das DATA 112.66, 114.69 
414 DATA 239,993 
424 DATA EOUGIE 
44 RENM--- MATSCNH 
444 DATA 793,59, 114,39: 
454 DATA Fe. 6: FR DS 
dé DATA FH 64, F5: 145, 
dr DATA 193,587, 141.87: 
424 CATA 114,145, 114,694, 
dan DATA 95,73, 83:74: 
SAA DATA 93,95, 93.,F9, 
Si DATA 85,95, 933.95: 
SEA DATA ST ST, 999,993 
Sd44 DATA MAISOH 
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REMS=S-essSsSS EROUETTE 


DATA 75:197: 82,107, 66,113 
DATA 83.181, P6.121, FZ,115 
DATA 73.107, 83,121, 86,114 


GATA F3: 114 
DATA 74.147, 82,147, 76.124 


CATA @.6 

CATA 86.113, 118.113, 122,124 

DATA 113,113, 129,95, 144,95 

DATA 72:35: 86,113 

DATA 999,993 

DATA BRQLUETTE 

REMs=zs=2zsssss=eszsszs Le SES dessin au hasard ss 


Pa INT RNDC 1 DXNMOT 3: IF P=fAP THEN 344 
AP=P :RESTORE 

IF P=@ THEN 198 

FOR I=1 TO P 

: READ K:Y:IF K=999 THEN 934 ELSE 924 
: RERD MÜTS 

NEXT I 

REM-————— Affichage 


1449 HIRES:IMNEÉ 
1914 REAC #4. TA 
1424 CURSET #4: 74:71 


1959 REAC #.Y:IF 42999 THEH 1186 


5 IF #4 THEN READ KV: DRAN KA T4, 3: GOTO 1476 


1968 DRAU 4, "A, 1 

1865 : 

1474 #Azk: "Az" 

1484 GOTO 1454 

1090 REMm=s-sssmsesnssse ReFonse 
1144 FEADC MOTS 

1114 INPUT "Hom ":#% 


1115 2e FH=MOTS THEH PRINT "OEÉ":GOTO 1244 

118 

1125 GOSUE 1935 

1154 

1144 1 R= LEHSMOTS5-1 THEM PRINT "La bonne orthograFhe est: "3; MOTS: 
GOTO 1244 

1158 FEINT "La bonne rePonse est:";: MOTS 

1194 : 

1284 AIT 244 

1219 GOTO SA 

1994 REM-- Vaisinañe de la FePOnse 


1935 F=4 * Hombre de bonnes lettres 
2448 FOR I=1 TO LENCRS) 


2045 : Cé=MID#C RS, I,12 

2414 : FOR .J=1 TO LEHCMOTS 

244 : IF Cé=MiD$cMOTS$,.J,19 THEH RekR+1:GOTO 2054 
2939 : MEXT .J 


2954 HEXT I 
2464 : 
2144 RETLURH 
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Troisième partie 


GESTION 


30 PROGRAMMES 


49 


BIBLIOTHÈQUE EN DATA 


Des titres d'ouvrages sont définis en ‘DATA’. Afin de les éditer triés par titre, par auteur et par 
mot-clé, nous transférons les ‘DATAS’ dans des tables. 


TITR$( ) AUTS$( ) C1$( ) 


FREUD 
PINAUD 










MA VIE ET LA PSYCHANALYSE 
PROGRAMMER EN ASSEMBLEUR 


PSYCHANALYSE 
ASSEMBLEUR 


Z 80 


Q 
N 
# 





Mot-clé 1 Mot-clé 2 





Titres 


La méthode la plus simple pour obtenir la liste triée par auteur consiste à faire : 


CLES( ) 


FREUD MA VIE ET LA PSYCHANALYSE 
PINAUD PROGRAMMER EN ASSEMBLEUR 






294 FOR LY=1 TO HLY 

919 CLESSLY I=AUTSE LU EN MATITRSELY 
329 HEXT LY 

334 : 

244 REM TRI DE CLEg à 

334 : 

260 REM EDITION CE CLES : 


Cette façon de procéder présente 2 inconvénients : 
e La table CLE$ occupe une place importante. 
© Les résultats ne sont pas cadrés. 


Aussi, procédons-nous autrement : 
e Nous remplissons une ‘table des Clés’ CLES$() avec les clés à trier (noms d’auteur sur 
l'exemple). Dans une ‘table d’index’ IX(), nous rangeons les numéros de ligne (1, 2, 3...). 


CLES( ) IX( ) TITRS( ) AUTS( ) 


MA VE ET... 
PROGRAMMER EN... 
VIPERE AU POING 
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e Nous trions les tables CLE$() et IX() 


TITR$( ) 


MA VIE ET... 
PROGRAMMER EN... 


VIPERE AU POING 





Ces tables n'ont pas 
été modifiées 


e Après le tri, il suffit de lire la table IX() pour éditer les ouvrages dans l’ordre des auteurs. 


FOR Lwel TD HLY 

ae Ta LU 

PRINT ALUT$é 4, TITRSE EX 
MEAT #4 
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Bibliothèque en DATA 


19 REM ET EIELIOTHEQUE EN DATA 


25 DIM TITRSE 146, AUTSC 1445, C1$c 1442, C2$6< 1 A0 ) 
34 CIM CLESé 144, IX 1640 


4 : 

54 CATA MA VIE ET LA PSYCHANALYSE, FREUD, PSYCHANALYSE, % 

66 DATA VIFERE AU POIHG, BAZIN, ROMAN, * 

F4 CATA FROGRAMMER EN ASSEMBLEUR., PINAUD, ASSEMBLEUR . csf 

84 DATA BASIC ET SES FICHIERS, EOIBOI: BASIC. FICHIER 
GG GATA LE BASIC PAR LA PRATIQUE, LAMOITIER: BASIC. X 

194 DATA # 

24 FEMe=z=ss2seezezzez | ECTURE DATAS EN TABLE ====2===zzzz 


214 FÜR Lvsi TO 244 

224 :READ TIT#LYWI:IF TITHLYDEUXK" THEN NLVELV-1:GOTO 27 
234 :READ AUTS&C LV, C1$c LV, Cage LY 0 

244 HEXT LW 


314 CLS:PRINT "Modes :":PRINT 
3284 PRINT SPCCS ST "LTITRE ‘Liste Par titre" 
334 PRINT SPCIS A MLCLE ‘Liste Par mot-cle" 


364 

374 PRINT : INPUT "hode "im 

S64 IF M&="LTITRE" THEH GOSUR SA 

394 IF M$="LAUT" THEH GOSUB 14@A4 

464 IF M="LCLE" THEH GOSUE 1548 

454 GOTO 514 

44 RÉUSARSSESAS ER RMRRNns LISTE TRIEE PAR TITRE ======222=2== 


34 LPRINT :LPRINT "LISTE TRIEE FAR TITRE" :LPRINT:LPRINT 
LA 


S14 FOR LVet TO NLY 
524 :CLESELY 3=TITRSELY D: LXE LV DELY 
HEXT L4 


ba 


ï 


+ 
ui 


HCLEHLY: GOSUE 2968 0 ‘REM APPel tri de CLESco) 


FOR LV=1 TO HLY 

He T#e Lo 

LPRIHT TITRSE Ki TAB 13435 3 
LPRINT ALTSc #0 


D US SD D D D SD D GE 
A] 


LommnmUoNMnAnunt 
DOLLUINABUODAITAEN 


HE#T LY 
RETURN 
PROPRES LISTE PAR AUTEUR =2ssszesessssssezssez 
AE LPRINT:LPRINT "LISTE TRIEE PAF AUTEUR" :LPRIHT:LPRINT 
1818 FOR Lei TO HLY 


1424 : CLESGE LU SAUT LU: THÉ LU eL NY 

1434 NEAT L 

194% 

1456 NCL=HLY : GOSUE 2446 REM APPel tri clegé 
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REM-----——— Edition 

FOR LVye1 TO HLY 

: AaI#é LYS 

LPRINT AUT&6 4 0: TABC 13415 5: 
LPRIHT TITRG(X 

HCL=9 

MEXT LY 


RETURN 


FEM=ssssseeseseeseseesuuez LISTE TRIEE PAR MOT-CLE =sssssssssesszss 
LPRINT'LPRINT "LISTE TRIEE PAR MOT CLE'":LPRIHT:LPRIHT 


5 HCL=A " Hombre de cles 


FOR Lyel TO HLY 
IF LEFT#ÉCIGÉLY 3,17 <XUX" THEN HCLENCL+1 : CLES6C MOL 201$ LU: IX 


€ HCL 3=LY 


1517 


:IF LEFTSCESC LV), 129 <2"4" THEN NCLENCL+1 :CLESE HOL H=CZgc LV: T4 


éHCL 3=LY 


1538 
1548 
1554 
1564 
1574 


1584 : 


1585 


1598 : 


1648 
1695 
1614 
1624 
1634 
1334 
2664 
2616 
2915 
2617 
2424 
2436 
2444 
z458 
2664 
2674 
268& 
2699 


HEXT L\ 
GOSUB 2444 * APPel tri cleé( à 


FOR Lvy=1 TO HCL 

Hal #ELY 

IF CLESCLY-1 € 2CLESC LYS THEN LPRINT':LPRIHT CLES6 LY 4: LPRINT 
LPRIHT TAB( 1345; 

LPRIHT TITRES 4 53 TABS 133450 4: 

LPRINT AUTSE 4 0 

HEXT LY 


RETURH 
FEM=sssesesesesssssss TRI SHElleszsszssess 
ECART=HCL 


ECART=INT<ECART/2 3: IF ECART£1 THEH RETURH 


IV=6 

FOR I=1 TO MCL-ECART 

: Je I+ECART 

‘IF CLESé Ji=CLESC I: THEN 2G69 
:AS=CLESC I à: CLEGC I =CLES( 12: CLESC zx 
ATH T 1: TAC I SI KG Ju: TAC Jos: IV 

MEXT I 

IF IV=1 THEH 2424 ELSE £G1S 


30 PROGRAMMES | 53 


LISTE TRIEE PAR TITRE 


BASIC ET SES FICHIERS 

LE BASIC PAR LA PRATIQUE 
MA VIE ET LA FSYCHAHNALYSE 
PROGRAMMER EH ASSEMBLEUR 
VIPERE AU FOING 


LISTE TRIEE PAK MOT CLE 


ASSEMELEUFR 
PROGRAMMER EH ASSEMELEUR 
BASIC 


LE EASIC PAR LA PRATIQUE 
BASIC ET SES FICHIERS 


FICHIER 

BASIC ET SES FICHIERS 
PSYCHANALYSE 

MA VIE ET LA FSYCHANALYSE 
RÜMAH 

VIPERE AU POING 
ag 


FROGRAMMER EH ASSEMBLEUR 
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EODIEUI 
LAMOITIEF 
FREUC 
FIHAUC 
EAZIH 


FIHALIC 


LAMODITIER 
EDIEOT 


ECIEOT 


FREUC 


EAZIM 


FPIHAUC 


14 REM INDEX LIVRE 


28 : 

38 DIM CLE$C 1995,PG#&C 190: 

49 : 

54 DATA P22,IHPUT, P24,GOTO 
76 DATA P£F, IF; P31,FÛ0R 
99 CATA F42,LEH, P42,LEFTS$ 


118 DATA P43.RIGHTS, F44,MIDS 

139 DATA P45,ASC,P46,CHRS,P47,STRS, F47, VAL 

144 DATA P43,CONT,PS2,GOSUE, PS2, RETURH 

296 DATA #,*# 

BOB REMmrs nee resensense LECTURE CATAS DANS PG$ à ET CLES6 2---— 
316 FOR 1=1 TO 1@8% 

324 : READ PG$(I2,CLES I 

339 : IF PG$CI2="#" THEN HM=Il-1:G0ÛTO 364 

349 HEXT I 

JD REMS=-=SsSSeS sn ese sen essnesmeeseneere TRI --- 
368 I'/=8 

378 FÜR I=1 TO NM-1 

384 :IF CLES(I+1:=>CLES$ I) THEH 449 

394 : AG=CLES(T 5: CLESC I 2=CLES6 I+1 2: CLESE +1 kg: lei 
395 :KG=PGS$C TI D: POSE TI EPS I +1 2: PG$CI+1 174$ 

4@@ MEXT I 

410 IF IV=1 THEN 366 

420 REM= eee mena ane on mm EDITION ---- 
436 : 

506 FOR I=i TO Hn 

514 :IF LEFT#CLES&(I-1:,12= LEFT$CLES( 1,12 THEN S£@ 
515 :LPRIHT:LPRINT LEFT$(CLES( 12, 15:LFRINT 

524 :LPRINT TAES 1343; CLESC I 3: TABC 1341202; PG$C I 

534 MEXT 1 


f 

ASC F4 
C 

CHRS P4f 

COHT P4s 
F 

FOR F31 
G 

GOSUB PS2 

GOTO PZ4 
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ANNUAIRE TÉLÉPHONIQUE 
(AVEC RECHERCHE 
DICHOTOMIQUE) 


Une recherche ‘séquentielle’ dans une table devient longue dès que le nombre d'éléments 
atteint 500. Si la table est triée, on peut retrouver très rapidement un élément par 
‘dichotomie’. 


NOM$ TPH$ 


AADMI 
BACHELIER 


043 - 44-83 
044 - 20 -15 





Le principe est le suivant : 

On compare le nom cherché (‘CADROT’ par exemple au nom du milieu de la table. 
e S'il est plus petit, on en conclut qu'il ne peut être dans la seconde moitié de la table. 
e S'il est plus grand, on en conclut qu’il ne peut être dans la première moitié. 

Ainsi, nous divisons par 2 l'intervalle de recherche et en procédant de la même façon 
successivement, nous retrouvons très vite le nom cherché. 


INF —# AADMI 
BACHELIER BACHELIER 
CADROT CADROT 





e ‘CADROT ‘est plus 
petit que ‘MEUNIER : se fait dans la 1°" moitié 
on élimine la seconde 
moitié 


Maintenant, la recherche 
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Annuaire 


14 KR 


46 D 
58 D 
68 L 
146 
124 
156 
164 
984 
936 
325 
936 
99% 
1494 
1814 
1624 
1922 
1825 
STOP 
1938 
1444 
1164 
1114 
1124 
1134 
1149 
1158 
1164 
1174 
1184 


Et ANLI AHHUAIRE 

ATA AADMI, 43.47.83, ABIVEH, G45,47,7£ 
ATA AEORF. W435,60.97, ABOU, G43. 42,13 
ATA ADAM, 43.62.66, AGLIERRE,  fdd,@6,Sf 


DATA EACHELIER.643,25.96, BAESLER, @43,17,34 

DATA CADEOT. 643,18,18. CAHANIH, G43,41,31 

DATA DA COSTA, @43.34.92, CA FROCHAS, G44,23,56 

CATA DAEO. Gdd,45,58, DAEOUDET, @43,15,13 

DATA #.*# 

REM—-———mmm mm mm Lecture DATAS eee eee nee 


DIM HOMSC 568 à. TPHSC SA 


CLS 

FOR I1=1 TO 1484 

:REAC HOMSC I 3, TPH$C I 

CIF NOMSCII="E" THEH HH=l-1:G0OT0 1144 


PRINT HOMSE I 

IF 11 THEH IF HOMS&CI HOME I-1: THEN PRINT:FRINT "Hon trie": 
HEXT I 

STOF 

REM---——— mm Recherche dichotomique --- 


PRINT: INPUT “Hom ":NOMS 
IHF=1 : SUP=HH 


MILSIMTÉSIHF4SUR EE 
IF IHFSSUP THEH PRIHT:PRIHNT "H'existe Pas ":PRINT:GOTO 1114 


IF HOMS=HOMSCMILS: THEH PRIHT:PRINT NOM&EMIL Hi" Mi TPHSEMIL OI: FRI 


HT:GOTO 1114 
1134 : 


1244 
1219 


IF HOM$<HOMS&CMIL: THEN SUP=MIL-1 ELSE INF=MIL+1 
GOTO 1154 
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FICHIER D’ADRESSES 


Sur l'exemple précédent, les informations (en ‘DATA’) ne peuvent être changées qu’en 
modifiant le programme. 


Le programme ci-dessous permet d'introduire et de modifier des données indépendantes du 
programme. Elles sont temporairement stockées dans une table à 2 dimensions FICHS(,). Elles 
sont ensuite sauvegardées sur cassette. 


TABLE FICH$( . ) 


A 


Enregistrement libre 








Sauvegarde sur cassette 


[Lies] 





Remarque : Ce programme peut être utilisé en définissant les adresses en DATA. Il faut dans 
ce cas transférer les DATAS dans la table FICHS(,) 


Tri-sélection 
Pour obtenir la liste triée des personnes d’une seule ville, il suffit de sélectionner les noms ainsi. 


5949 INPUT "Quelle ville "V8 
5025 IF VSC>FICHSCF.232 THEN 5949 


Tri multicritères 
La liste alphabétique des clients dans l’ordre des villes s'obtient en faisant : 


S39 CLESCFOISFICHGCF, GS +FICHS&CF, 11 


CLES( ) 
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Fichier d’adresses 


19 REM ADR FICHIER D'ADRESSES 
15 GRAB:HIMEM HEGFF 

26 

25 GOSUE 20006 

39 : 


59 DIM FICHSC59, 4 3 
64 DIM CLES< 59), 14582 


79 REM----——————— 

88 : 

94 CLS:PRIHT " MODES :":PRINT 

199 PRINT SPCSi"C : Creation/modification" 
145 PRINT SPCES"LF : Liste fichier" 


196 PRINT SPCÉS SLI : Liste fichier imprimante" 
119 PRINT SPCES 0: "ESAUY  : GSauveQarde casssette" 
12Q PRINT SPCIS Hi "LECT : Lecture cassette" 

13@ PRIHT:INPUT "Mode ":rm$ 

149 IF M$="C" THEN GOSUE 24% 

159 IF M$="LECT" THEN GOSUE 484 

164 IF Mé="SALIV" THEN GOSUE 384 

165 IF M$="LF" THEN GOSUE 1445 

174 IF M$="LFI" THEH GOSUE 2444 

175 IF M$="LFH" THEN GÜOSLE 464 

176 IF M="LFY" THEN GOSUE 54@@ 

177 IF M$="S" THEN GOSUB 5234 

184 GOTO 84 


199 REMszssesessesesessses CHEATION-MOCICATION sessmesesssesessesss 
294 PRIHT:PRIHT "Hom? "3: :GOSUE SGGG:IF LIG$="" THEM RETURH 

219 #$=L1G$:LELENC #$ 0 

228 : 


234 FOR RANG=1 TO 54 

235 ‘IF FICHSCRANG, 13="" THEH Re 

236 IF FICH$&SRANG. 13="4" THEH 

244 :IF AS=LEFTSCFICHS&CRANG, 1 4. LS. THEH 354 
254 HEXT FAHG 

233 STOP 


eva REM ———— NOUVEAU Tom 
294 PRINT : PRINT "Rangement: "3; RANG: : INPUT "'Houveau nom CO/Hi MR 


348 IF R$<>"0" THEN 244 
316 FICHSCRANG, 12=%$ 
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328 REM---- 

325 PRIHT 

334 PRINT FICHE RANG, 2 

332 Me LS LENC FICHE RANG, 2 3): IF #34 THEN PRINT SPC 4 0: 

235 PRINT "Rue? "3i:GOSUB SAGG:IF LIGHEEU" THEN FICH&CRANG, Sel TGS 
336 : 

344 PRINT FICHS&c ANG, 30: 

342 He15-LEHCFICHSERANG, 3: IF #24 THEM PRINT SPC 4 5 

de PRIHT "Ville? "::GOSUB SA4@0:IF LIG#<2"" THEN FICHS$CRANG, 3 2eLIGS 
246 : 

354 PRINT FICHS&ERAHG, à à; 

352 As15-LEHCFICHSERANG, do: IF #29 THEH PRINT SPC K 0: 

354 PRINT "Cpost® Mi: GOSUE SOGA:IF LIGé<?"" THEM FICHSCRANG, 4'ieLIGé 
369 GOTO 244 

SPA REMassseseseseseseseenmenxss SMUIVEGARDE sememesesseseesemmemams 
“ PRIHT:PRINT "APPUYER SUR <RECORD: PUIS £RETURM "GET #4 

ana PRINT MÉAUVEGARDE CASSETTE": MAIT 346 

414 POKE #67. 4: CALL 192%4,FICHS 

46 RETLEH 

461 : 

462 

463 

464 : 

474 FElzzsssssesessessesasezs LECTURE 

454 PRINT:PRINT "APPUYER SUR <FLAY? PUIS <RETURH} M'GET #% 

485 PRINT :PRINT "LECTURE CASSETTE" :FRINT 

49û 

saû POKE #Er . 9 

514 CALL 1427,FICHS$ 

528 : 

539 : 

569 RETURH 

994 FElMs=zssszssssesmessssesessssz | TSTE FICHIER =22s 

1844 CLS 

1814 PRINT: PRINT "LISTE OÙ FICHIER: ":FRINT 

1424 


1439 FOR F=i TO 1464 

1949 :IF FICH&CF,15="" THEH 124% 

185 :PRIMNT FICH&F,1 3: 

1R6Q :#=13-LENCFICHSCF, 13031 454 THEM PRINT SPC 4 
1979 :PRINT FICH#&CF, 25: 

1184 : PRINT 

1194 HEAT F 

1284 PRINT:PRIHT "APPUYEZ SUR <RETURHÈ":GET #$ 

1214 RETURH 
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1996 


REM=====e==e=2=====2=22= LISTE FICHIER IMPRIMANTE == 


2998 : 


2914 


LPRINT:LPRINT "LISTE Cl FICHIER" :LPRIHT 


2424 : 


2434 
2644 
2454 
2AER 
2674 
248 
249û 
2149 
2114 
2184 
2194 


eh : 


2214 
2995 
3464 


FOR F=i TO 16564 

IF FICH#&CF,11="" THEN 224% 
LPRIHT FICH&CF, 15: 
LPRINT TAEC13+15 1; 
LPRINT FICH#&CF,25: 
:LPRINT RE mac 
:LPRINT FICH&CF,3 
:LPRINT TAEC 12458: 
LPRIHT FICH&CF 4; 
:LPRINT 

HEXT F 


RETURH 
REMSeseeerress INPUT AVEC KEYS —-—- 
LIGé="" 


3814 : 


3448 
3454 
346% 
3865 


CH<EEYS:IF C="" THEN 364% 
CaASCE C3: LeLEME LIGS 

IF C=13 THEH PRIHT:RETUREM 
IF Cé:127 THEN 31464 


3974 : 


3459 


IF LL THEH LIGSSLEFTSCLIGS, L-10:FRINT CHRS$C1E7 5: : GOTO 364Q EL 


SE 2449 
3836 : 


3194 
3114 
3126 
3138 
3338 


IF Cé32 THEH FIHG:GOTO 344 
LIGH=LIGSH+CS:PRIHT CS: 
GOTO 5644 


FEM==ssesessssz LISTE FICHIER TRIEE FAR HOM === 


+A44 : 


41 
424 
4434 
464 
4454 


FOR Fi TO 1464 
‘IF oo 12="" THEN HF=F-1:G0TO 4144 
CLESEF ASFICHSCF. 1: IKCF er 
HEAT F 
STÛP 


4464 : 


4194 
4145 
4119 
4124 
4134 
4144 
4154 
4194 
42a4 
4214 


GOSUE 4598 " APPel tri 


:LPRINT'LPRINT "LISTE TRIEE FAR HOM:":LPRINT 
FOR Fei TO HF 

"#SIACF 

LPRINT FICHS&X, 1013 TAËS 13+1: 
LPRINT FICH&E SK, 3 TABC 1345 
:LPRIHT 
HEXT F 
RETURH 


Œ 
.» 
53 
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4494 REM------ TRI SHELL 
4544 ECHRT=EHF 


4545 : 
4514 ECART<INTÉECART<2 0: IF ECARTE1 THEN KRETURH 
4515 : 


4528 1V=4 

4524 FOR I=1 TO HF-ECART 

4544 :.J=I+ECART 

4554 :IF CLESé JieeCLESC I THEH 4564 

4555 : KG=CLESCT 1: CLESET 2ECLESE Ji: CLEGE mag He DC T 1: LAC I Je KE as TA 
cJisk: IV=1 

4569 HEXT I 

4574 IF IV=1 THEH 452G ELSE 4514 

4694 
4994 
5999 : 

S@1iA FOR F=1 TO 194 

5426 :IF FICH&CF,153="" THEH HF=F-1:GOTO 51484 
5938 :CLE&CFOISFICHGCF. Gi LHC Fer 

5444 HEAT F 

5459 STOF 





LISTE FICHIER TRIEE FAR VILLE === 


S964 : 
5194 GOSUB 4544 " APFel tri 
5145 : 


5114 :LPRIHT:LPRINT "LISTE TRIEE FAR VILLE":LPRINT 
5124 FOR F=1 TO HF 

5139 :X=IACF 5 

S144 :LPRINT FICH&c x, 203 TABC 13415: 

5154 :LPRINT FICHGE 4, 1 13 TABC 13435 5: 

5199 :LPRIHT 

5248 HEXT F 

5218 RETURH 

Seen FEMezzsssesssesemeseesesmesmecesemmsce CIIPPRESSION sesssssssse 


5244 FRINT:PRINT "Homo: GOSUE SGGG IF LIGGEU" THEN RETUREH 
5254 HOMS=LIGS 

5264 FÜR RAHG=1 TO 54 

S274 IF FICHS&CRANG. 1 =HOMS THEH 54f 


SES HEXT FANG 
Se :PRIHT:FEINT CH'EXISTE FAS":PEINT:GOTO Sédf 
5346 


244 IHPUT "Suphression OK CO‘Hi "ir 
2414 IF R$g="O" THEN FICHS#cC RANGS, lue" " 
424 GOTS Si4g 
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19994 REM---- FEOUTIHE SAUVEGARDE-LECTURE TABLE -- 
13335 FEM Cf revue ORIC septembre 1983 ou Programme ORIC BASE 
19326 : 

caGGg CLS: PRINT "ATTEHCEZ" :FRIHT 

sagas A=#ESOG:READ CS 

24814 FOR Izi T0 LEMCDS$) STEF 2 


24829 : Y=VALE"#"4MICSCDS, I, LH: PÛKE A: V:ASA+LIHENT I 
24938 READ D$:IF D$<:"2" THEH gai 

24444 CÜKE #44, #ARdC : DOKE #44, #4CB8:DOKE #4@4,#B85% 
24445 RETURH 


20454 DATA 555595992259 443638552A0BBS0S2QDÉBSLGEAECASGLSEACEESAS 3324 
C6ESAS3424 
2GGEG DATA CÉESSGEERESLAATESZ 42614220 3SES20AQ4ES2864AQQGE 18 1F 61" AAAE 
3261413304 
2474 DATA AG8SD4FSESCAF AGE 11 LACÉESCEDEFSEACIEGSODES AE GISCS LG GBES 
G£2QDéB82A 
20484 DATA S6E6CO3BEECILSDOF SLOIAECSSSILAINERESTA4AGALE1CECS3SCEBI1CE 
E524B46624 
26696 DATA AdEB4CS3CA4ZGEEBEAZAERE 424261003208 S2644ES2564A840E191F 6 


1C24F4D4AA 

Re ESAGOGGCAF AGE2ASAE ESS 1 C1 CEDAFSAGALEIC AGE IA 1SECAFELGC3BE3G 
D3 AG 

20118 DATAÉSG1R 50 1ASGAGIERAIASAECAC1ESÉZEALACAESESA 1 SESAGESE 1 CEAASSE 
1CEE391B@ 

20120 DATAGICASS3386346018ASCE6S 33856 1ASCFÉSS4SSÉZAGGAEICEZAF ÉC1E 
F34608501 


20134 DATAHB4W26A2HESGGCI2CFADSACE4CF ACEZAGALANLAESAAEEE TS SES LGESGAE 
G86L1B06E 
20149 DATA2GG4ESA4CE4CFAZQAABELESSELGEBELAAIAASEGSED 1 SAABAALGEZAUGGFEZ 
48601B6F6 
20159 DATACS24D0BE6RSFFESESCDOACCSESCAGFAGSASSZIASEA4SSES4SAASSAAALGEZA 
B86B5R63E 


Le) 


26164 ET UT D D en à 
EC8BICE18 

20174 DATA6SCERRACSB1CESSCF 3907 3SÉQZAB4ESALEAdCESC ASS 

26189 DATA Z 
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GESTION D'UN PSEUDO FICHIER 
EN MEMOIRE CENTRALE 


NRUBS ( }) TYPS( ) 
<—— _ NRUB —+ Pseudo 
"4 enregistrement 


CODE LIB PRIX STOCK 


Cut LL 


FICHS (21) TABLE j" nd 









Fichier 
séquentiel 


Ce programme permet de définir en mémoire centrale un pseudo fichier sauvegardé dans un 
fichier séquentiel. 

La définition des rubriques, faite de façon conversationnelle, est sauvegardée avec le fichier. 
Créations, modifications et suppressions sont gérées automatiquement. 


Liste triée : 


Pour obtenir une liste triée, il suffit d’écrire : 


10% 1 2="CODE" : 1D$< 2 = "PRIE" ‘ Homs des zones a editer 
TRI * Position tri 
GOSUE xxx 


Des programmes d’application peuvent être ajoutés à la fin du programme standard. 
e Le mode ‘VAL’ donne le total des stocks 
e Le mode ‘TS’ trie le fichier dans l’ordre des stocks 
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Remarque : Pour le sous-programme de sauvegarde cassette (20000), voir le programme 


FLIH + Description 
des zones 
du fichier 


Mode DESC + 


Hon rubrique? CODE-y 
TyPeT k 


C 
Longueur? 73 


Hom rubriquez LIE 
(l ed 


STOCK, 


Création d'un enreg. 


| 


Macde’f y 


CODET CADRE 








LIÉE? CADRE?S/ 10 y 
PRIT 2264 
STOCK 


12 
É 


Mode? L 
LISTE DU FICHIER 


CACRE 
SELLE 


CADRE 5-19  & 
SELLE X4KX 13 
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Gestion de fichier 


19 REM FHEM 


16 GRAE:HIMENM #ESFF 
24 GOSUE ZA 


TETE 


50 HFICH=G 
99 LG 11 NF ICH 


GESTIOH CE FICHIER 


£5 CIM MRLIES&C 164%, TYP&c 144, LG 180 


EE 

F REM UNE TABLE À 2 CIMENSIOHS FICHS#CHFICH, HEURE 4 CÜMTIENT 
84 REM DANS CHAQUE “LIGHE‘ UHE ‘FICHE’ 

34 REM CETTE TABLE EST SAUVEGARDCEE SE CASSETTE 

164 : 

118 FENM HFICH : NOMBRE DE FICHES 

124 REM HEUE : NOMBRE DE RUBRIQUES 

124 KEM MARLIE : MAXIMUM CE FICHES 

144 REM HRLIBSE à : HOMS DES RUBRIQUES 

179 REll=ssssssenmeseseseneememenses MENMI messemmsmmceonsenmenEensE 
124 CLS: PRINT "MODES: "PRINT 

294 PRINT SPCÉS NH "DESC : DESCRIFTION FICHIER" 

214 PRINT SPCÉS 3; "VDESC: VISUALISATION DESCRIPTION" 

212 PRINT SPC Si "C : CREATIOH-MOCIFICATIOH" 

214 PRINT SPCCSiUL : LISTE FICHIER" 

216 PRINT SPCES 3 "EAUY : SAUVEGARDE FICHIER" 

224 PRINT SPC S 2: "LECT LECTURE FICHIER" 

225 PRINT SPCCS "SE SUPPRESSION FICHE" 

234 PRIHT:IHPUT "MODE "MS 

244 IF M$="CESC" 


250 IF M$="VDESC" 
Mg="C" 


M#="LECT" 
MA$= " L LL 

MS="LT" 
M$= LL S LL 

3 M= "AL" 
330 IF MS= 
GOTO 194 
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THEH GÜSUE 374 
THEH GOSUE ‘58 
THEN GOSUE 764 
27@ IF M$="SALUN" THEH GOSUE 
THEH GOSUE 1264 
THEH GOSLIE ne 
THEH GOSUB 15 

THEH GÜSUE S9ù 
THEH GOSUE 2194 
"TS" THEN GOSUE 2270 


A 


1134 


394 


464 : 


394 
6AA 


624 
648 


814 
820 
84m 


REl======szsszsssssessssessss DESCRIPTION RUBRIQUES ==2= 


PRIHT 

INPUT "HOMERE MAXI DE FICHES ";:MFICH 

DIM CTRIGEMFICH, Le MFICH A: FD=1 

FRINT 

FOR I=1i TO 14 

:PRINT:PRINT "Hom rubrique:";:GOSUE 3644 

IF LIGS="" THEH HRUB=I-1:CIM FICH$EMPICH, HEURE: RETURH 

: NRUBSE TI ELIGS 
IHPUT "Type rub CCichaine-H:numeriques "ixé 
IF A#$<"C" AND H$S<2UH" THEH 456 

: TYP$CI = $ 

IHPUT Longueur. Mix 

: LGCT EX 

HEAT I 


3 PRINT 


PRIHT MAPPUYEZ SUR €RETURHS "GET 4$ 
RETURH 


REM====nennesanemenses VISUALISATION DESCRIPTION === 


PRINT:PRINT "DESCRIPTION DES RUBRIQUES" :FRIHT 
FOR I=1 TO 14 

IF HEUBSET DES" THEN PRINT HRUEBSS TI 2, TYPE TI LGCI 5 
MEAT I 
PRIHT:PRIHT'APPUYER SUR <RETURHÈ":GET #$ 
PRIHT:RETURH 


RÉ ions CREATIONH-MOCIFICATION mises 


PRINT :PRINT “En mode modification, aPPuser sur <RETURH: " 
PRINT "si la zone ne change Pas": PRINT 
PRINT UR: retour zone arriere!" PRINT 


PRINT : PRINT Horn "3: GOSUE SGGG:IF LIGés"" THEN RETURH 
HBeLIGS$:LELENC HS 


FÜR I1=1 TO HFICH 

IF FICH#CI,12="" THEH FÉE 

IF #SESLEFT£CFICHS&E TI, 12, Là THEH RAHGEST:GOTO 54 
MEXT I 


PRINT 

INPUT MHOUVELLE FICHE CO-H3 "RS 

IF R$<+"0" THEN 714 

FOR 1=1 TO HFICH 

CIF FICH#CI.12="#" THEH RAHNG=I:GOTO 54 
HEXT I 

HF ICH=HNFICH+1 : RANGEHFTCH 
FICHSCRANG, 1 3=#$ 
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68 


345 
254 
ETAT) 
era 
3ef 
338 
344 
985 
914 
324 


934 : 


34 
356 
951 


955 


REM----- 
GOSUE 4998 :REM OÙ GOSUE 274 
GOTO 718 

REM—--———— SAISIE 


FOR I=£ TO HAUE 

PRINT NRUBSC TI 2; SPCCS-LENC HRUIBSC I 3513 FICHSE RANG, I à; 
PRINT SPCC15-LENCFICHS$E FANG, I 1411: 

:GOSUR 2GG@G:IF LIGé="" THEN 348 

‘IF LIGS="R" THEH IF 122 THEN I=s1-1:G0T0 946 
FICH&E RANG, I IELIGS 

HEAT I 

RETUFH 


356 : 


3r4 

384 

3356 

1446 
1414 
1424 
1434 
1445 
1854 
1864 
1874 
1456 
1496 
1431 
1995 
1496 
1134 
1144 
1154 
1169 
1162 
1164 
1165 
1166 
1167 
1179 
1171 
1172 
1173 
1175 
1176 
1184 
1136 


PRIHT:IHPUT "HOM CFifini "ikS:IF #$="F" THEH RETURH 
LELENC 4% 


FOR I=1 TO HFICH 

CIF ABELEFTSEFICHSET, 11, Li THEH RANGS] :GOTO 1464 
MEXT T 

PRINT:PRIHT "H'EKXISTE PAS'":PRINT:GOTO 9394 

INPUT M"AHHULE OK CO/H5 "iRS:IF R$<>"0" THEH 99384 


FICHS&CRANG, 1 2="U4" 
GOTO 398% 


FRElzz==sssssssszesz CSHUVECGARDE FICHIER ssszssezsessess 
PRINT "AFFUYER SUR <RECORD: PUIS £RETURH: " 

GET #$ 

PRIHT "SAUVEGARDE CASSETTE" :FRINT:MAIT 244 

POKE #67.6 

LGÉ 11 2=HFICH: LG 12 )=NRUB : LGC 13 2=MFICH 

CALL 1424,LG 

FRINT M"LG":HAIT 49 


CALL 1924, HRUBS 
AIT 394 
CALL 1924,TYPS 
WAIT 394 
CALL 1424,FICH# 


PRIHT:PRIHT "SAUVEGARDE TERMIHEE":PRIHT 
RETURH 
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1264 
1274 
1284 
1294 
1394 
1305 
1346 
GC 12 
1347 


1 

1368 
1314 
1312 
1324 
1335 
134% 
1354 
1424 
1434 
144 
1456 
1466 
1476 
1454 
1494 
1544 
1519 
1554 
1564 
1579 
1374 
1554 
1594 
1648 


1614 F 


1624 
1634 


164a : 


1654 
1664 
1674 
1688 
1682 
1684 
1748 
1792 


FEMassssssessessssssessessasss LECTURE FICHIER ssssssses 
PRINT:PRINT "AFFUYER SUR <FLAY PUIS <RETURH: 

GET *%$ 

PRINT "LECTURE CASSETTE": PRINT 

POKE #67, 

CALL 1427,LG 
PRIHT'LG':NFTCHELGE 11 3: HRUBSLGC 1€ 0: MFICHELGC 130: PRINT LG 113,L 


2, LG 139 


IF FD=@ THEN DIM FICH$&EMFICH, HEUB 2, CTRISCMFICH), Le MFICHO:FDE= 


CALL 14827. HELIES 
FRIHT HRLESC 15 
CALL 1927, TYFS# 
CALL 1927,FICHS& 
PRINT:PRINT "LECTURE TERMINEE":FRINT 


FEMssssssessessesesumses LISTE DES FICHES ssssssses 


ID 1o=1:ID6Zu=z 
GOTO 14854 
RETURH 


PRIHT:PRIHT "LISTE LES FICHES" :PRINT 
FOR I=1 TO MFICH:IHXC IST: HEXT I 
GOSUE 1534 

RETLUFH 


1066 1 = "CODE" : ID$é 2e" PRIA" : 108 3e" STOCK" 


FTRI=I " Position tri 
GASLE 1624 
RETLIEH 


FOR I1<1 TO 16 

‘FOR R=1 TO HRUE 

IF ID$CI)EMNRUBS RS THEM ICI = 
:MEXT KR 

HEXT I 


FOR I=1 TO HFICH 

'CTRISC IO=FICHSCI PTRI I: IHAC I = 
NEXT I 

GOSUB 1394 


1F93 : 


1784 
1714 
1724 
1736 


PRINT :PRINT "LISTE TRIEE DES FICHES" :PRIHT 
GOSUE 1839 
RETURH 
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1749 REM-- SPGM EDITION ECRAH 

1856 : 

1869 : FOR F=i TO HFICH 

1874 : 

1984 : FislTAACF 5 

1885 : PRIMT "I": 

1896 : FOR R=1 TO HRUE 

1344 : IF IDCR1<G THEH 1954 

1919 : PRINT LEFTS#CFICH&CF1, IDR 30, LGCIDER 5 5 

1915 :  A=LGE IDR I-LENCFICHSCFA. IDCRHOUIF #29 THEN PRINT SPC HO 
1917 : PRINT "I"; 

1946 : HEAT K 

1959 : PRINT 

13964 HEXAT F 

1974 PRIHT:PRINT "APPUYER SUR £RETURHS GET #% 

1973 RETURH 

1989 REM---ee ere men e TEI SHELL-METEHER 

1934 PASSHFICH 

2484 PRIHT:PRIHT "JE TRIE FOUR VOUS": PRINT 

2814 : 

2424 PAS=INTÉPAS-ZI:IF FASSL THEH RETUEH 

2639 .J=1:K=HFICH-FHS 

2A4@ : 
za54 I=.l 
2864 : 

24F4 LeI+PAS 

2484 IF CTRISCIHECTRISIL) THEH 2126 

2499 H$=eCTRISE LH CTRISE L ISCTRIGE TI LE CTRISGE I 1H 
SAS Aa THE L I: THACL eT HR TI: LHC Te 

2164 IsI-PAS:IF I£1 THEN 2124 

2145 GOTO 24974 

2114 : 

2129 J=eJ+i:IF Jèk THEH SE 

2125 GOTO 2454 

2ira hEMazsssssesesesse WALORISATION STOCK sessssemesamsmses 
2184 : 

21939 TT=fA 

2244 FÜR Fi TO HFICH 

2214 :TTETT+MALEFICH#CF, 3 M EMALE FICHE: di 
see HEAT F 

2234 PRINT:PEINT "TOTAL STOCK: "TT 

2235 PRINT:PRINT "APPUYEZ SUR £RETURMS M:GET 4% 


ca34 RÉdisnesassansous INFUT AVEC KES zzzxz 


3844 CH=KETS:IF Ce"" THEN 364 
3454 CeASCC CS 1: LeLENCLIGS 5 

3464 IF C=13 THEM PRIHT:RETURM 
3465 IF C<:127 THEH 3196. 

3974 : 

ue Li THEN LIGSESLEFTSELIGS. L-1 5: PRINT CHRGC AE 5: GOTO 64 EL 
SE 3644 

3494 : 

3184 IF C<32 THEH FING:GOTO Sf4f 
3114 LIGSELIGS+CS: PRINT C$: 

3124 GOT 344 


70 | orIC POUR TOUS 


SAISIE ÉCRAN AVEC KEY$ 


La saisie d'informations à l’aide d’une suite d'instructions ‘INPUT ne permet pas, en cours de 
saisie, de se positionner sur une zone arrière qui aurait été mal documentée. 


14 INPUT "Horn "3 HOMS 
29 IMPUT "Rue "RUES 
38 INPUT "Wille"; VILLES 


Ham CUFOHT- 
Rue Fe: Rue MALE 


SEL 
Ville? MONTIGHT MONTIGNT W 


Nous proposons ici un sous-programme qui permet de modifier des zones mal documentées. Il 
est utilisable avec le programme précédent. Une table NRUB$ contient les noms des zones à 
saisir. Le résultat est rangé dans une table FICH$ (RANG,) 


Horn : CUFONT—ÿ 
Eug: 11. rue HOBE Ly 


“ille: 


POUR REVENIR 
SUR ZONE ARRIERE FICHS ( 


RANG—> [DUPONT|11. rue NOBEL| | 
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Saisie écran avec KEY$ 


SiEi : 

3122 : 

3123 

3124 : 

299 REM=zszzeecesesesesesese CAISIE ECRAN HOZ =ezz 
ana : 

4agi1ä CLS 

4915 PLOT 2,43,"% Pour zones arrieres!" 
44e FOR Lez TO HRUE 

4834 : FLOT 1:L+1,HRUB#éL 0 

4935 : PLOT 15:L+1.FICHS&CRANG, L 5 

4fd4ñ : 

4184 HEXT L 

4114 FREM---mm em mmmmmne  5 SAISIE CES ZONES 
4124 FOR Pz2 TO HRUE 

4134 

414 HL=15 :YL=P+1 

4145 :GOSUE 5994 

4164 :IF Rzi THEM FICH#ERANG. FsLIGé 
4174 :IF Rz2 THEH 4244 

4184 :IF R=3 THEN IF F1 THEH PLOT &L,YL,FICHSCRANG,F:PaP-1:GOTO 4 
146 

4244 : PLOT #L:%L FICHE RANG. PF 

4245 HEXT P 

4214 FETURH 

4994 REM-----.— 5; Saisie d'une 1i4 

Sagg LIGé="" 

Sa1à : 

sAzA LeLEHE LIGS 3 : PLOT #L+L.L,13E 
5939 

sa4a CH=KEYS : IF Cé="" THEH Sad 

2664 CeASCE CS 2: LeLEHÉLIGS 0 

5985 IF Cs13 THEH Sidf 

SA : 

Sa6l IF Cail THEH RG: RETURN 

5965 IF Cé127 THEH 5148 

SarE : 

5984 IF LA THEH LIGSELEFTS#ELIGS, Let: PLOT #L+L, "Li" "MiGOTO SAZA EL 
SE 3048 

s494 

5144 IF C£3E THEH PIHG:GOTO 54m 

5114 LIGH=LIGH+CS: PLOT AL. LL, LIGS 
5124 GOTO : 5424 

5139 

5149 PLOT AL+L : Lo n 

5158 IF LIGHé:"" THEN Rzi ELSE Rs? 
5164 RETURH 
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ÉDITEUR DE TEXTE 


Editeur de texte 
Ce programme permet de saisir et de modifier un texte. L'image de l’écran représente le texte. 





Table TX$( ) 
TX$ (1) 
TX$ (2) EXEMPLE DE TEXTE 
| 2.2.82 
TX$ (3) EXEMPLE DE TEXTE 
TX$ (4) 





Sauvegarde sur fichier séquentiel 


2.2.82 Ï EXEMPLE DE TEXTE ) 








L'insertion de caractères dans une ligne se fait immédiatement dès la frappe de ceux-ci (il n’y a 
pas de mode insertion). 

Des caractères spéciaux sont prévus pour la suppression de caractères, la suppression et 
l'insertion de lignes. 

22 lignes de texte seulement peuvent être visualisées à la fois. Les caractères ‘!” et “‘’ déplacent 
la partie de texte visualisée vers le haut et vers le bas. 


Remarque : Le temps de test des caractères frappés 
doit être le plus court de façon à ne pas ‘perdre’ de 
caractères. C’est pourquoi nous testons d’abord si les 
caractères frappés ne sont pas des caractères spéciaux B1 ———» 
et dans ce cas nous les concaténons immédiatement 
à la ligne en cours de saisie. 





EXEMPLE DE TEXTE 


B2 —> 
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Editeur 


74 


384 
385 
390 
395 
396 


FEM ECT EDITEUR 

GOSUE 29806 ‘REM Pour sauvegarde cassette 
IHK4 

PRINT CHRSC 17 5; :REM SuPhréession curseur 
CLS:PRIHT "EDITEUR FLEIH ECRAN':PRINHT 


PRINT " 4 fleches Pour se deplacer" 
PRINT " DEL Four effacer Un caractere" 


PRINT " CTRL 4 Four sauvearde 
PRINT " CTRL E Pour edition imprimante" 
FRIHT "1! décalage haut" 
PRINT " decala9e bas " 
PRINT " @ insertion ligne 
Cé="tiCagiLIgs"" Leg: PFCsf 
DIM LI$:5g: 
PRIHT 
INPUT 'Houveau texte CON "RS 


IF F$="0" THEH CLS: GOT 14 
GOSUE 2444 


CLS 
FOR LIisi TO ZE 

PLOT 1,LI-1,LI&LI 
DER LI 


Bi= l'E£=22 
FCz1 tREM Position curseur ligne courante 


329 FOR LIsB1 TO EE 


‘IF LISMX THEH Mel 

:LIS=LISE LI 4: GÜSUE SEA 

:PLOT 1,L1-B1,LI$+" " 

LISE LI ELIS 

‘IF Reg THEN IF LI%1 THEH LIsLI-1:GOT0 349 
‘IF ReZ THEH IF Llé=1 THEH 345 

‘IF Re3 THEH IF LISEZ THEH LIsLI+1:GO0OTO 34 
IF ReS THEH IF LIS:EZ THEH 349 

‘IF Re14 THEH GOSUR 3194 


490 FEM------ Aiout 1 ligne 


416 
415 
416 
417 
418 


IF Fi: THEH 426 

‘FOR IeMx TO LI STEP-1:LISC I+1)=LISCID:MEXT I'LISCLID="" 
:CLS:FOR I=E1 TO Be 

PRINT LI I 

:MEXT I 


419 :Mk=Mx+1:GOTO 344 
428 : 


44@ :RENM 
450 


nes Sauvegarde 
‘IF R<6 THEH CLS:GOSUB 34@4:G0OTQ 1932 


464 REM------- Décalage bas 


47 
473 
476 


‘IF R<?7 THEH 489 
:B1=B1+1:B2=B2+1:CLS 
FOR 1=81 TO B2:PRINTLISIS:HEAT I 


477 :LIsLI+1:GOTO 349 
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428 
494 
435 
436 
437 
438 
ss) 
301 


REM = — ee me me eu mm Decala3e haut 

:IF R£5S THEN 594 

:IF Bi<=zi THEW 349 

:B1=E1-1:B2=82-1:CLS 

FOR I=B1 TO BZ:PRIHT LISCIS'MEXT I'LISLI-1:GOTO 344 


MEXT LI 


292 : 
503 : 
594 : 
505 : 


596 : 


579 
9384 
294 
aa 
616 
628 


634 : 


644 
6545 
647 
659 
664 
662 
664 
6rE 
684 
699 
695 
596 
rail: 
624 
14 
reg 


REM=e=menemmmmmmmmmne Saisie d'une ligne 


IF PC?LENCLIS: THEN PCELENCLIS +1 
IF LIg$g="" THEN PC=l 


PLOT PC.LI-E1,132 


C$=<KE"S 
IF C$="" THEN FLOT PC.LI-B1,MID&LIS.PC.15:GOTO 624 


C=ASCC CS 

LeLEM(LIS 

IF C:127 THEH 64% 

IF C=ii THEH R=2:RETURM 

IF C=i3 THEH R=3:RETURH 

IF C=8 THEN 9334 

FEM---- Effacement caractere 

IF Cé127 THEM 719 

IF éL-PC+13<=9 THEH 64f 

LIHS=LEFTSELIS, PC-10+RIGHT#ELIS, L-PCH:PLOT 1,LI-EB1,L1$+" ":GOTO 


REM--- Curseur droite 
IF C=9 THEN IF PCézL THEH PLOT PC-M,LI-B1,MIDS$eLIS, PC. 12:PC=PC+ 


1:GOTO 624 


725 
36 
768 
774 
734 
795 
544 
819 
815 
824 
EL IA] 
850 
S6a 
80 


884 : 


IF C=9 THEH IF FC%L THEH 648 

FEM-- 

IF C=19 THEH K=3:RETURH 

IF Czéd THEH Rzd:RETURH :REM & ajout li9ne 
IF C=1i THEH R=6:RETUEH :REM Sauveñarde 
IF C=2 THEN R=16:RETURM 

IF C=33 THEN R=7:RETURN :REM ! bas 

IF C=33 THEH R<S:RETURN :REM * haut 

IF C=3 THEN PRINT CHR$c 17 3: END 

IF C£32 THEH 64% 

REM=— mm caractere normal concatene 

IF L?36 THEH 644 

LIS=<LEFTS#ELIS, PC-1+CS+RICHTSCLIS.L-PC41 5 
PLOT 1,LI-B1:LI% 


IH} 


834 : 


964 
914 


PC=PC+1 
GOTO 628 
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76 


ge 
934 
948 
954 
964 
374 
1994 
2484 
2616 
2624 
2434 
2644 
2454 
cA6a 
2861 


REM---8 

IF FCé=1 THEN 64f 

IF PCèL THEN PLOT PC,LI-F1," " 
PLOT FC-4,LI-B1,MID# LI. PC. 12 
PC=PC-1 

GOTO 624 

PREMzzssssssssesezesssesz |ECTURE CASSETTE === 
PRINT:PRIHT "APPUYER SUR <PLAY2> PUIS <RETURHS":GET #$ 
PRIHT:PRINT "LECTURE CASSETTE" :FPRINHT 

POKE #67. 

CALL 1427,L1$ 


RETURH 


2DÉE : 
2863 : 
2464 : 
2865 : 
2h66 : 
2867 : 


2998 RE 


3664 
3414 
3628 
3934 
3a4û 
3445 
3954 
39698 
3098 


311@ 
3124 
3134 
3149 


Mzzssszzssssszsezsezzs CAIIVECARDE CASSETTE =zzzxe 
PRIHT:PRIHT "APPUYER SUR <RECORD> PUIS RETURN: ":GET #8 


PRIHT :PRIHT "SAUVEGARDE CASSETTE" :FRINT 


POKE #67.4 
WAIT 264 
CALL 1924,LI1% 


LPRIHT 
FOR Le1l TO MX 
LPRINT LIgéLo5 
HEAT L 
RETURH 


# : # 
# #  ##Y# # # 
+ #  *X : # 
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COURRIER PARAMÉTRÉ 


Une lettre standard est définie en ‘DATA’, ainsi qu’une liste de destinataires. 

Le programme personnalise cette lettre pour chacun des destinataires. 

Nous lisons d’abord la lettre définie en ‘DATA’ dans une table TXT$() puis pour chaque ligne 
de la lettre, nous remplaçons les paramètres entre <> par les valeurs réelles de chacun des 
destinataires. 


TXTS$S( ) 

















3 RENNES TE 





Cher monsieur < 1 > 


| 
EE = 


Monsieur DUPONT 
12, rue xxx 


RENNES 





Cher monsieur DUPONT 


R  ——— 
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Courrier paramétré 


18 REM COURF COURRIER PARAMETRE 
24 : 
DIM TATSE 30) 

5 REM---memmmne nee emmnnne Lettre = 


J 
A 


riluiereresere re if 
ee QD me CR D CO Ji LA Co Pi ee 0 D tn Gi mOn 


DATA "LIBERT Fierre Le GE, SEE" 


CATA "Eue de FARIS 

DATA "él-SEFT FORGES" 

CATA " L 

CATA il 

CATA " 1! 

CATA " Monsieur 41%  " 
CATA " # 
CATH 
CATA " 
CATA " L 
DATA " Cher Mongigur ET sun mmumunus L 
DATA. LL ésme ses x D ON TR 4 
CATA " 1! 

CATA " à 

CATA " LIBERT PF," 

CATA " 1 

CATA " " 


TT 9 EE bi Lo 


D 





S Ge SDS De D Do 











c94 CATA # 
SAGEM an Fldrees ARE 
514 DATA CUF FE E 


DATA FORTIH, RUE 
4 GATA BETHLUEL, RUE 
34 DATA #4. * 

4 REM--eeeeeeeses Lecture Lettre dans TETE 


24 FÜR Lel T0 1644 

READ TETE LOTIR TETE L UE THEN Hell: GOT SEE 

HET L 
Abe ps dote cn ne cn me ms oo ot mu 

FÛF EV=1 TO LA 

FÜR Fæl T0 EALC FEM&CPOHERST F 

Lo FEMSE TUE THEN ETF 





mme Edition 






.FOR LGs1 TO HL 
LIGHESETET SE LG 1 
COHEN GÜSUE 
IF Fi 
HF ALE 
CCRS&=" 









: 1 LIGMES PT 
L GOSUE 


nine 
DJ DU Re 


LIGHERELEFT#C LIGNES, F1 + PETRE NPCHRT GNT LIGNES, LEME LIGHES à 





 :  LPEIHT LICHES 

24 MEET LG 

44 :PÉIHT:PERINT "Appuuez gur RETURN M:GET 5% 
af HEST EY 


= A D PTT UN 1 


LL TOP 
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A FE fécHher che SOUS Chaine 


LisLEHE COCHE 


à FOR P=1 TO LENCLIGNES )-L1 
à : IF MIDSCLIGNES.P.L13=CCHS$ THEN 3100 
à HEXT P 

P=û 

RETLIRH 





RIBERT PABUTS® Le SSH. 


Le de 


61-SEFT FORGES 


Monsieur  CUFONT 


12 RUE HXY 
REHHES 


Cher Monsieur CUPOHT EL E 
LIÉERT F, 
LIÉERT Fierre Le LE, 


Fue € PARIS 
Si-SEFT FÜRGES 


Mansieur FOETIH 


RUE “ri 
FEHMES 


LIBERT F, 
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Quatrième partie 
JEUX 
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JEU DES ALLUMETTES 


Règle du jeu 

Au départ, il y a 30 allumettes. 

e Les 2 joueurs prennent des allumettes à tour de rôle. Celui qui prend la dernière perd. 
e Chaque joueur peut prendre entre une et le double des allumettes prises par le joueur 


précédent. Par exemple, sile joueur A prend 2 allumettes, le joueur B peut en prendre 1, 
2, 3 ou 4. 


FUN 

Moulez vous commencer? CH 0 
Combie: "1! ta ly L 
J'en Frends 

Il en reste: 27 

FAnore ME à 


Nous avons défini une table BCOUP(,) où est stockée dans la 1" colonne le jeu qu’il faut à 
l'adversaire et dans les autres colonnes le nombre d’allumettes qu'il faut prendre pour gagner. 
Par exemple, s’il reste 11 allumettes, prenez en 2 afin qu’il en reste 9. 








Ce qu il faut 
laisser 






Ce quil 
faut prendre 


TABLE BCOUP ( 





S'il reste 11 allumettes. 
en prendre 2. pour 
quil en reste 9 
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Jeu des allumettes 


14 REM ALU JEU DES ALLUMETTES 
24 : 

34 : 

148 CATA 41.:1,2,3:4,5,6 

119 DATA Ad, doososnoors 

124 DATA Wéiliisssuuse 

139 DATA 99,1,2,:3,,,, 
144 DATA 12:1,,;: 
158 DATA Îid,:1,%: 
164 DATA 1 
174 DATA 1 
189 DATA 2 
139 DATA & 
266 DATA 2 
219 : 

226 DIM ECOUPC 13, F0:FOR el TOIL:FOR Iz1 TO P'REAC BCOUPE J, IH: MEXT 
J:HEXT J 

230 CEBUT=3û 

244 : 

259 CLS:PRIHT " JEU DES ALLUMETTES'":PRIHT 

ZéA PRINT "AU CEPART,IL ‘ À 34 ALLUMETTES" 

265 PRINT "CHACUH PREHDC DES ALLUMETTES 

267 PRINT "ALTERMATIVEMENMT, " 

269 FRIHT 

279 PRINT "CELUI QUI FRENC LA CERHIERE FERD':PFRIMT 

289 PRINT "ON PEUT EH FREHNCRE ENTRE 1 ET LE" 

285 PRINT "OOUELE OÙ JEU FRECEDENT" 

294 : 

304 HRESTE=DEELT : His: HCOUPESL : PFINI=A 

314 PRINHT:IHPUT "Voulez vous commencer C CH Oo iRé:TF Féz"0" THEN TRæl 
ELSE TR=? 

324 

334 oW TR GOSUE 574,484 

348 IF PFIHI=1 THEH GÛOSUE 5F9:G0OTO 364 

254 GOTO 334 

960 REM----mmmm JEU JOUEUR 

374 PRINT:IHPUT "Combien en Prenez vous "iHPRISE 

284 IF HPRISE<1 THEH 37€ 

394 IF MPRISESHMA THEN PRINT: PRIMT Hi" ALU PLUS":GOTO 374 

444 IF HPRISEZMRESTE THEN FRINT:PRINT "IL H'EM RESTE QUE "iHRESTE:G 
TO 37 


= Los = is 


Ê 


420 IF NPRISESHRESTE THEN PRINT :PRINT "J'AI GAGNE ":PFINI=1 :RETURH 
424 HRESTE=HRESTE-HPRISE : HMX=HPRISEX#EZ 

44a TR=£ 

45@ RETURH 
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84 


REM- ee eee eee JEU MACHINE 
IF HRESTE=1 THEH PRINT "J'AI PERDU": FFINI=1: RETURN 


IF NMX=2NRESTE THEN HPRISESNRESTE-1:GOTO 514 ELSE GOSUE 6184 
PRINT: PRINT "J'EH PRENDS: ";:HPRISE 

MRESTE =HPRESTE-HPRISE : HMkSHPRISEX#E 

PRINT :PRIHT "IL EH RESTE :";HRESTE 

IF HRESTE=1 THEH PRINT:PRINT "J'AI GAGHE'": PRINT :FFINIS1 RETURN 
TR=1 


A RETURH 


FRIHT:IHPUT "COMEIEH C’ALLUMETTES FOUR LA FARTIE ":CEEUT 

GOTO 344 

PE nee mu meme Recherche dans 1a table des Hong Coups 

FOR Lei1 TO 1 STEP-1 

: FOR Ce2 TO 6 

IF ECOLPIL.CH=4 THEN 666 
[E 


MPRTSESBCOLIPE LL, Ci: RETURN 
: HEMT C 
MEAT L 
HPRISES1:PRIHT:FEINT "VOUS POURRIEZ GAGNER":RETUEN 


ORIC POUR TOUS 


LE COMPTE EST BON 


Nous proposons une version simplifiée du jeu ‘le compte est bon’ : 

e Nous choisissons 7 nombres aléatoires et nous effectuons des opérations aléatoires avec ces 
nombres. Puis nous affichons les 7 nombres aléatoires ainsi que le résultat calculé. 

e Ce programme ne vérifie pas si le résultat calculé par le joueur est exact. Il faudrait pour cela 
‘évaluer l'expression donnée par le joueur (par exemple : (25 — 3) * (5 — 2)) 


OC( ) 


0/1 








7 nombres déjà utilisés 
aléatoires 


Les opérations générées par le programme sont seulement du type : 
+ 


Résultat = Résultat précédent nombre aléatoire 


* 
/ 


Eu 

Voici les F nombres: 
19 2 25 3 4 54 à 
Resultat atrouver: 66 
AFFuger sur <RETURH: 


Ma solution: CCSS+s KE +1 


gx: C29+3142+1f 


AMELIORATIONS POSSIBLES | 

e N'afficher que les parenthèses strictement nécessaires, par exemple (25 + 3) * 2 + 10. 
© Pour évaluer le résultat donné par le joueur, voir le programme ‘évaluation d’une 
expression’. 
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Le compte est bon 


14 REM CPTE1 LE COMPTE EST BON NOI 

28 : 

64 CLS 

90 REM= == mem mms F HOMBRES ALEATOIRES —- 
188 FOR H=1 TO 7 

114 : NEBCHI=1+IHTÉRHDE 1 #14 3 

129 : IF HECH3219 THEM HEC HO=C HEC Mi-1G4Zzs 
139 :HEXT H 


149 FREM-----—— Hombre d'oPperations a adapter) 

159 NP=3+ IMTE RND 1 243 “3 -:6 operations 

152 

155 FOR Isi TO F'OCÉ IQ: HET I  :REM Mombres deja utilises 
160 : 


174 PA=INTE RHDE 1 347 +1 

175 IF HECP#I< 21 THEM RESULSHE6 P4 5: OC Pix = 
184 : 

182 RS=UM FOR Is1 TO HP-1:RS=2RS&4"C M MENT TI 
185 R$S=RS4STRSE RESUL à 

264 FÜR H=1 TO NP-1 


214 : OP=INTÉRHD 1 2#4 +1 " QPeration 

815 : 

224 : PA=1+IMTE RH 1 247 2 ‘ Choix cPerande 
234 : IF QCéF#I=l THEH 22% " Deja Pris 

244 : 

259 : ON OF GOTO 546,406, 544, 644 

264 : 


398 : RESUL2RESUL4NBC PH): OP#e"+" 
314 : GOTO 7@ÿ 

328 : 

408 : X=RESUL-HBCPH3: IF K<1 THEN 219 

495 : RESUL=X :OP#="-" 

418 : GOTO 788 

428 : 

SAQ : IF NECPXK)=1 THEN 22% 

S1 : RESUL=RESUL#NE( FX) 

520 : OPS="#" 

530 : GOTO 74@ 

544 : 

604 : IF HECPX)=1 THEN 219 

605 : X=RESUL/MEC PH 

61 : IF X€>INTCX3 THEN 216 

624 : RESUL=X:0P#="/" 

649 : GOTO 709 

650 : 

788 : OCCPX)=1 

719 : RS=RS+OPE+STRSC NEC PX +" 0" 

30 MEXT_N 

314 IF RESUL<190 OR RESUL>999 THEH 150 

820 : 

830 CLS 

840 PRINT "VOICI LES 7 NOMBRES :":PRINT 

898 FOR N#1 TO 7:PRINT NBC); :NEXT N'PRINT 
398 : 

918 PRINT:PRINT "Resultat à trouver: ";RESUL:PRINT 
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330 PRINT "Pour avoir ma solution faire <RETURHS" 
340 GET #5 

954 PRINT:PRINT R$ 

364 : 

365 PRIHT 

a7@ PRINT "APPUYER SUR SENTER: ":GET #$ 

224 GOTO 184 
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ÉVALUATION D’EXPRESSIONS 


Etudions comment peut être réalisée l’évaluation d’une expression arithmétique. 


L'analyse d’une expression se fait de gauche à droite. Chaque opérande rencontré est mis dans 
une pile dite ‘pile des opérandes’, chaque opérateur étant lui stocké dans une ‘pile des 
opérateurs’. 

A chaque fois qu’un opérateur de puissance inférieure ou égale à celle de l'opérateur du haut 
de la pile est rencontré dans l'expression à évaluer (+ est moins puissant que *), on évalue le 
résultat de l’opération entre les deux opérandes du haut de la pile avec l'opérateur du haut de 


la pile, puis le résultat est rangé à la place des deux précédents opérandes. Enfin, l'opérateur du 
haut de la pile est supprimé. 


aXb+cxkd ( Fu 
{ on évalue a X b AE pe 
ES 


El 
EE 
2 
+ 
EEE TE 


aXb+cXkd 


Ici, on évalue c X d 
puis (a X b) + (c-X d) 
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3 


Lorsque l'expression à évaluer comporte des parenthèses, celles ouvrantes sont stockées 
systématiquement dans la pile des opérateurs. Considérées plus puissantes que les opérateurs, 
elles empêchent l'évaluation tant qu’une parenthèse fermante n’est pas rencontrée. Chaque 
parenthèse fermante provoque l’évaluation jusqu’à la parenthèse ouvrante correspondante. 


aX((b+c+d)X(e+f)+ga%xh 


| 


Ici, on évalue b + c 


aX((b+c+d)X(e+f)+gkh 


| 


Ici, on évalue d + (b + c) 


aX((b+c+d)X(e+f)+g%Xh 


| 


Ici, on évalue e + f 


ak((b+c+d)X(e +fl+g%kh 


Ici, on évalue 


(b+c+d)Xke+f 
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Remarques : Compte tenu des temps de traitement des chaînes de caractères, ce programme 
est relativement long à exécuter. Nous n'avons considéré que les opérations d’addition et de 
multiplication, celles dont nous aurons besoin plus loin. 












Quelle expression ? 





Extraction d'un caractère 
de l'expression 


Ranger opérande 
courant dans la pile 








L'opérateur 
lu est-il moins puissant 
que celui du haut 
de la pile ? 


Evaluation 





Placer l'opérateur 
lu dans le haut 
de la pile 








Placer opérande 
courant dans la pile 






Placer ( dans 
la pile opérateur 










Haut de 
la pile = “(" 
? 


© Evaluer les 2 opérandes Evaluation 
du haut de la pile 
opérande avec 
l'opérateur du haut de 
la pile opérateur 


© Placer le résultat à 
la place des 2 opérandes 
évalués 
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Evaluation d’expressions 


1a RE EH EYHLUATIUN C'UME EXPRESS LUN 
ail 
: DATR OPUS LP ALES LE UE LEURS PUR LCR 


D FOR I=1 TO 6:READ P$SCI2PÉIS:HEXT I 

94 =" 0+39#12/2 0)" :REM Remplacer Par INPUT #%$ 

144 : 

12Q RT=1:RD=1 

1:26 CUR=1 

148 : 

154 DEP=CLR 

164 : 

17@ Y$=MIDSE #4, CUR, 12 “ “é:caractere analuse 

154 : 

138 IF Y$="" THEH Yé="0": GOSUE ZSG:PRINT:PRINT "RESULTAT: MiRALIUE 
TOP 

206 IF “$="+" THEN GOSUE 284: CUR=CUR+1:GOTO 154 

205 IF Y$="-" THEH GOSUE 284: CUR=CUR+1:GOTO 154 

210 1F Y$="#4" THEH GOSUE 284: CUR=CUR+1:GOTO 158 

215 IF Y$="/" THEN GOSUB 288: CUR=CUR+1:GOTO 154 

224 IF Y$="i" THEN GOSUB 334 :RT=RT-1: CUR=CUR#+1: GOT 154 

230 IF $="c" THEN RTSCRT = TS: RT=RT +1: CUR=CUR+1 : GOT 154 

248 CUR=CUR+1 

254 GOTO 174 

2ÉQ REM-- eee me me PLUS <MULT 

289 GOSUB 4+4n 

281 

282 LXS=" ‘$:GOSUE 664:P1=P 

284 IF RT>1 THEH XAS=RTSCRT-1 3: GOSUE S4@:F2=P 

294 IF RT>1 AHD Fi=:FP2 THEH GOSUE 3S8G:RT=<RT-1:GOTO 282 

295 : 

344 RTÉCRT = YS:RTERT+1 

318 RETURH 

329 REM-----— mm me PAREHTHESE FERMANTE ---- 

330 GOSUE 44n 

331 

332 #XS=1$ : GOSUE Sg4:Fi=F 

234 HAS=RTSCRT-10):GOSUE £QG:P£=P 

348 IF RT>1 AND Pi=:FPZ THEH GOSUR SE: RT=RT-1:GOTO 332 

254 RETURH 

969 REM--—— me mn en EVALUATION 

389 FOR Izi TO RT-1:LPRIHT RTSCIY::MNEAT I 

394 LPRINT TABE252::FOR 1=1 TO RO-1:LPRINT RACIZS:NEXT I'LPFRINT 

A4GG IF RTSCRT-15= "4" THEN RACRD-2 2=RAC RD-1 2#RAC RD-2 1: RDSRD-1 : RETURH 
495 IF RT$SCRT-1 =" THEN RACRD-Z eRACRD-2 1/RACRD-1 1: ROSRD- 1: RETURH 
414 IF RTSCRT-15= "4" THEN RACRD-Z =RACRD-1 +R ACRD-2 3: RD=RD-1 : RETURH 
415 IF RT$SCRT-129="-" THEN RACRD-2 3=RAC RD-2 2-RACRD-1 2: RDSRD-1 : RETURH 
429 REM-----——— mm AJOUT PILE OPERANDE ---- 

44 CH$=MIDS< 4%. DEP, CUR-DEP à 

454 IF CH$="" THEH RETURH 

464 RAS RD = VAL CH$ 

478 RD=RD+1 

489 RETURH 


Li 
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190 REM= Sem POIDS OPFERATELR ---- 


846 FOR I=1 TO 6 
810 :IF #“##$=P$C I) THEH P=PCI :RETURH 


829 HEXT I 

830 P=9:RETURH 

i+ & 3 

* 11 12 
# 132 & 
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LE MOT LE PLUS LONG 


Nous présentons ici une version simplifiée du jeu ‘le mot le plus long’. 
Dans chaque ligne de ‘DATA’ sont définis : 
e Le mot le plus long; 


e Des lettres complémentaires (9 — longueur du mot le plus long); 


e Les autres mots possibles. 
Autres mots 
possibles 


DATA PECALES, TO, FETALES, FEDALOS, # 


nl 
mot complémentaires 


Nous affichons les lettres du mot dans le désordre puis nous attendons pendant 30 secondes le 
résultat du joueur. Si la réponse n’est pas bonne, nous affichons la (ou les) solution(s). 


Affichage double 
hauteur fond jaune 














A DEPLSETO 
Votre solution : PÉDALES, 


ok 
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Le mot le plus long 


14 R 


2% I 
5 N 
34 & 
4û D 
53 D 
68 D 
78 D 
80 D 
36 D 


124 
134 
148 
159 
834 
304 
31 
1464 
1814 
1815 


1424 : 
1939 : 


1445 


EM MOT MOT LE PLUS LONG 

HK1 

M=15 :REM HÔMERE DE LIGNES 
ATA FICHIERS. U,* 


ATA PECALES, ee PE DBEE PEDALOS . # 
ATA ARMOIRES 

ATA MOQUETTE ñ! MAQUETTE, 4 

ATA FAUTEUIL,%.%# 

ATA te 

ATA CASSETTE. D. # 

DATA RIDEAUX, HU 

CATA ARDOISE.FO,FROIDES. # 

DATA TABLEAL, EC, # 

DATA CHAMERE , AU, CHAMEALI. # 

DATA CLAVIER. GIZ; # 

DATA CHEVELU, AR, CHALEUR, CHAULER:, # 


RESTORE 
FÜR Ii TO S:FCTOISG'MEXT I 
A=RMDE 1 1ÆMM 

FOR I=i TO # 

CIF #<û THEH 144% 
READ #% 
READ A$:IF He" THEM 1434 
MEXT I 


1854 : 


1144 
1145 
1116 
Jaune 


1115 


L = 
DIMM IP 


Haha ar pe papa ja je pa pa 
FO ra pe be he he be pa 


Fo 
rer 
Les) 


111 


£ 
3 


en 
Fo Fo 
el 

Ni 


DANONE 


READ MOTS 

FEAD Cé:MPS=MOTS+CS 

REM ue me us means une mem me Affichage lettres double hauteur fond 
CLS PRINT PRINT: PRINT : PRINT " "5: CHRSC à 1 CHRGE 27 33 MIN; 
PRIHT " CHARS ET Ji MEN: 
PRIMT CHRSC 27 3; "gp": 
FOR Isi TO 9 
Pal+RHDOc 1 #3 
er Fhpeee THEH PRINT MIDSCMPS, Pl" Mi:FcPFixl ELSE 1134 
HE 
PRINT CHR ZT 1 M" ; 
PRINT CHERE À à "Fin double hauteur 


PRINT : PRINT : PRINT 

PLOT 5 :1@, "VOTRE SOLUTIOH:" 

S$= nu 

REMSPSSR Perses Attente reponse mem mnmen mur 
Te ‘ Chronc 


1214 : 


1215 
1216 
Q 12 


ABSÉETS IF AGESUN THEH 1224 
TeT+1:IF T:564 THEN 1298 ELSE FLOT 4,23, STR&CINTIT-24 33: GOÛT 


15 


1217 : 
1218 : 


94 
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1213 
1228 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
123 
1234 
1235 
1226 
1237 


1238 


1244 : 


1294 
1:64 
1314 
1312 
1314 
1315 
1:94 
1444 
1414 


REM--—-———— Saisie rePonse 
S$=#$:PLOT 269+LENCS$),16,#$ 


AG=KEYS:IF #$="" THEN 1222 
IF ASCCX$2=13 THEN 1234 
IF ASCC AG H127 THEM 1226 


SH=LEFTS(S$, LENS S$ 5-1 1: PLOT ZA+LENC 641,19," ":COTO 1222 


S$=56+%$ : PLOT ZG+LENC ESS 1, 14,4% 
GOTO 1222 


IF MOT$=5$ THEH FLOT 29,24,"0FK.,,":HAIT 3544: GOT 346% 


FOR 1=1 TO 4 

REC ASCIU:IF AGCTIENE" THEH 1294 

CIF ASSOCIES THEH PLOT 26,26, "0Kk,., ":MAIT 264: GOT 344 
HEXT I 


#6="MA SOLUTION: "4MOITS$ 
PLOT 14,24.%% 
FOR I=1 TO 4 


IF A$I:="4" THEN 1494 
: AS=ASC IH PLOT ZE, 264+1. AS I) 
HEXT I 
UAIT 364 
GOTO 3664 


4 


— 
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BIORYTHME 


Il existerait chez l’homme des périodes ‘positives’ et des périodes ‘négatives’ réglées par des 
‘horloges internes’ indépendantes de l’environnement extérieur. 


_— Positi 
Dose 








23 jours 28 jours 33 jours 


S dl 
DS dé Négatif 









Jour de 
naissance 
Cycle physique 


Cycle émotionnel 
Cycle intellectuel 


Il V aurait trois types de cycles : 

e Cycle physique de 23 jours; 

e Cycle émotionnel de 28 jours; 

e Cycle intellectuel de 33 jours. 

On pourrait ainsi connaître à l’avance les jours favorables et défavorables. 


Pour afficher une ligne, nous stockons dans une table tampon LIGNES(), les caractères à 
afficher. 


LIGNES (31) 
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Biorythme 


16@ 


REM BIOF BIORYTHME 


DIM LIGHES(31),M0IS$123..JM 12: 


DATA JAH. FEV, MARS, AVRIL, MAT, JUIH, JUILLET, AQUT, SEPT, OCT, HOW, CEC 
FOR I=1 TO 12:READ MOISS$ I: NEXT I 


36 DATA 31.:28,31.30,31,34,31,31,34,31,304,31 


FOR I=1 TO 12:READ JMCIO:MEXT I 


119 : 


129 
134 
135 
140 
145 
150 
155 
164 
162 
164 
163 
178 
173 
189 
185 
199 
coa 
214 
306 


CP=23:CE=28:C1=233 “ Physique-Emotionnel-lntellectuel 


CLS:PRINT "E I OR YŸ TH M E":FRINT 
INPUT "VOTRE HOM ":HNOMS 

PRINT:PRINT "HAISSANCE : ":FRIHT 
INPUT "JOUR. MOIS, ANNEE ":; IH, MH; AH 
IF AH<19G0 THEH 159 

J=JH :MEMN:A=AH: GOSUE 1598: Val 
GOSUE 2696 


PRINT:PRINT "BIORYTHME :":PRIHT 
INPUT " MOIS,ANNEE ":ME,RAE 


IF AB<1994 THEH 179 

J=1:M=ME:A=AE:GOSUE 1594 

NJOUR=JY-H#4 :REM Hombre de jours vecus 
REM mm mm mme 

K=g:CLS 


326 : 


325 
339 
349 
358 
40 
485 
4a7 
41a 


LPRINHT:LPRINT "BI OR YŸTME ":LFRIMT 


LPRIHT HOM$;" "i" Me le "iJRSCJS 0): " "5 Mi" "5H" AH; 
LPRINT "  C'HJOUR:" jours 3":LPRINT 

FOR I=1 TO S1:LIGNES(I2=" ":MNEXT I 

LPRINT:LPRINT MOISCMBD;" "3; AE:LPRINT 

LPRINT " negatif Positif" :LPRINT 

REM----- 
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RIT dennme 


98 


FOR Dei TO JIM ME 

:LIGHE&( 163=":" 

:PASINTÉ L4#S TMC K+HIOUR XZX#PI-'CP 415,5 
:PR=IMTE L4HSTNE C K4+NJOUR SHZ#PI-/CE 5+15,5 

: PAS IMTE 1 4ÆS THE C K+HIOUR SÆZÆPT CT 415,5 
LIGHESE PF =" LICHESE PE ete LIGNES PE Se" I" 
:IF PisPZ THEN LIGHESé PI EUX" 

:IF P2=P3 THEH LIGHESé PS2 =" 4" 

IF PisP3 THEH LIGHESé PI = "x" 


D EnCAEA 


LPRINT Di TAES 16; 

FÜR 4e1 TO SAL:LPRIMT LIGHESE 40: MEAT #:LPFRINT 
LIGHESE P1 3e" ML IGHESE PE EN LL TGHESC Pen 
tK=K+1 

MEAT LC 


PRIHT 
MB=ME+L:IF MB:12 THEM MBzl :AB=<AE+1 
GOT 444 


CR RER RE CALENDRIER PTT 
5 PEM JM, A > JW 


té SIMTE, 64 Le, GO Met LEE AK = AM 


IE MINT C GE EC MT RS 14, GATE TNT RES, ZSKC AAA P LE +, GO 


Je, Je THTC AK LAB UE THTE Aie EE 

FETLIFEH 

FEMMES SSRESEn SSSR JOUR DE LA SEMAINE ne ne ve 
REM Ju ex IS 


JR 1 = "CO TMANCHE RSC Zee ML LINOT V5 JR 3 1e MARCUS 4 1e "MERCRE 


A IR Se JEUDI": JRSCE Ie UVENDREDT RG Fe "SAMEDI" 


JEst JY-1P2BSTT 7 
JS IMTÉPHCUIS-THTE JE 104, GA +1 
RETLFH 





ORIC POUR TOUS 


EITIORYTME 


GIBET He le JEUDI 15 12 “134 


AOUT 19385 
négatif 


DD MIMNMSI OR 
Ex] 
= T 
em L 
=. im 


ER 
Fo 

re 
re 


15 i 


Him mars 
9VLoO-InUnE 
œ 


22 


®m 


F2 M2 T0 Fo PQ 
HDi EG 
D © © m 
© T7 

T 


3 
La 
14 


23 PF «# 


Co GP 

- © 
n 
m 


F 


négatif 


Î 

4 

5 i 
É i 

F i 

£ 1 

9 i 

14 i 

11 i 

12 i 

130 ii 

14 i 

15 i F 


a] 


positif 


i 
& 
LA H 
e 
& 
& 
g 
F': E 
. F E 
PF # 
ep 
î ë F' 
L : E F 
i' € F 
&: ii F' 
o î i F' 
Fi 
:F 1 
F: É 1 
i 
i 
i 
i 
i 
i 
i 
i 
E i 
Fositif 
Et 
Fi 
ji 5 FE 
F & 
Fe 
Fe 
# 
# 
FE 
F € 
: F E 
: F: £ 
°F € 
FO : # 
Æ : 


ZF45 jours © 
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JEU DE MARIENBAD 


Règle du jeu 


Quatre rangées contiennent 7, 5, 3, 1 allumettes. Chaque joueur doit prendre à tour de rôle des 
allumettes dans une seule rangée à la fois. Celui qui prend la dernière perd. 


[ll 
ll 
, ll 
en 


Un algorithme donne le nombre d’allumettes à prendre pour laisser un jeu perdant à 
l'adversaire. 

e On convertit en binaire le nombre d’allumettes de chaque ligne (dans une table BN,)). 
e On effectue la somme de chaque colonne de la table BN(,). 





7 





va Tous ces chiffres 
doivent être pairs 


© Pour laisser un jeu perdant à l'adversaire, il suffit que les chiffres de toutes les colonnes de 
SM() soient pairs. 
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Jeu de Marienbad 


19 REN MAF JEU CE MARIEHEAD 
29 : 
23 CLS 

3Q REM----- Jeu deFart 

194 JEU 1 227: JEU Z5eS 

114 JEU 3 9=3:.JEUC 4 ï=1 

144 : 

159 GOSUE 4996 

164 REM---e eee 

165 FRINT 

174 INPUT "Youlez vous commencer CH MES 

75 JRSG:IF R$="0" THEH IR=1 

176 : 

177 FP=f4 

178: 

189 IF JR=1 THEH GOSUE 294:.JR=1-0R 

8S IF FP=i THEH 194 

190 IF JK=4 THEM GOSUE SG: IRel-.R 

192 IF FF=1 THEH 144 

195 GOTO 18 

2 | 1 22 0 SE EEE EEE EEE EEE CCE EEE JOUEUR senssecesessamesme 
219 FRINT:IHPUT MOLELLE LIGHE "il 

224 INPUT "COMBIEH Mi 

234 : 

235 IF HYJEUCL) THEH FRINT:PEINT "VOUS TRICHEZ": PRINT: GOTO 216 
244 JEU L i=JEU L 3H 

£54 : 

264 GOSUE 444 " Affichage 

265 GOSUE 5644 “ Fin de Partie 

267 IF S=l THEH PRINT "VOUS AVEZ GAGHE":FF=1 

274 RETLURH 

294 RElzssesssmmececmescesenenmemenmeæseucz MACHINE seseseseneunses 
30@ FOR L=1 TO 4 

3184 : #sJEUCL : GOSUE 1964 

324 HEXT L 

466 : 

490 REM---eee eee ne Recherche jeu Qagant ee ou meme ee nee ae ve son ne vo 
Sa& FÜR Lel TO 4 "4 lignes 

514 : FÜR Hei TO JE L “ Ün essaie d'en Prendre 1 a JELKL) 
515 IF JEUCL'eg THEH 54 

529 #H= JEUX L 1-1: GOSUE 1446 

539 GOSUE 244% " Sommation Colonnes 

54f IF GHei THEH GOTO 686 

559 : HEXT H 

Ség : #sJEUCLO:GOSUE 144 “ Retablissement de la ligne binaire 
Sr HEXT L 
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280 
594 


684 : 


614 
629 


REM----——-——- Pas de solution Dañnante —----- 
ue Lei TO à 

JEU L)+4 THEN H=1:GOTO 694 

Ex L 

STOF 


6rA : 


688 IF 


: GOT 
636 
692 
695 
r64 


SMCOD=Z AND SMC19=@ AND SMC23=4 AND H=JEUCL) THEH H=JEUL dt 
0 7@ù 

IF SMCAi=2 AND SMC1=9 AND SMC22=@ THEH N=JEUCL 

IF SMCG)=@ AND SMelo=@ AND SMCZ3=@ THEH M=JEUCLi-1 


PRIHT:PEIMT "JE JOUE: LIGHE:"iLi "EN PREHDE SU H 


raz : 
743 : 


rad 


Fa : 


706 : 


77 , 


ro 


Fa 
763 
714 
715 
= 
749 
F45 
739 
r6f 
FÉ1 


= 9 M La Fo 
Ex] 


mm iD 
ISO 0MU 


en 
232 
QG) M 
SG 


144% 


1454 : 


1964 
1474 
1875 
1996 
z2G54 
ABS 
2a1& 
EL HT 
2434 
2646 
2454 
2464 
2894 
2144 


2118 : 


2124 
2134 
214% 


102 


JEU L'45JEUE L 3H 
cos! LE 446 
GOSUE Sat 


IF 5=1 THEH PRIHT:PRIHT "AT GAGHEM:PRINT:FF=1 
REFORS 


REV RE AR ETEPNSES C4 BIHAIRE 
REM ENTREE: #,L 
REM SORTIE: REMPLIT EHEL, 2 


A FOR PF=£ T0 & STEF-1 


EN L'FISIHTE 4 Car 3+.41: 
ASH L, POHC ER 

HEAT F 

RETURH 


RE SOMMATION 
FOR Ce2 TO @ STEP-1 

Sa 

FOR Li=i TO 4 

S=G+BMCL1, CD 

HEXT L1 
: EMCCIeS 
HEXT C 


GH=G 
FOR CZ TO @ STEP-1 
IF IMTC EME C 81426012 THEN GH=@:RETURH 
HEXT C 
GH=1 
RETUFH 
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JEU DE MARIENBAD 
PAR APPRENTISSAGE 


Nous apprenons le jeu de Marienbad. Mais cette fois-ci, la machine apprend à jouer en 
‘imitant son adversaire. 

Pour la première partie, la machine prend une allumette dans une rangée quelconque. 
Dans 2 tables J() et P() sont stockés tous les jeux de la partie. 











On prend 1 
dans la rangée 





Jeu en cours  Allumettes prises 


À la fin de la partie nous cumulons les jeux de la partie achevée dans 3 tables. 





Récapitulatif des  Allumettes prises Gains 
jeux 


Dans une table des gains G({), nous faisons +1 si la partie a été gagnée et —1 si elle a été 


perdue. Ainsi, pour les jeux suivants, la machine consulte ces tables pour chercher des 
configurations gagnantes. 


Au fur et à mesure des parties, la machine dispose de plus en plus de configurations gagnantes. 
Elle doit jouer de mieux en mieux, surtout si son adversaire joue bien. 

Pour tester le programme, laissez-le commencer la partie la première fois et gagnez la partie. 
Commencez la seconde partie (comme lui) et il jouera comme vous aviez joué lors de la 
première partie et gagnera lui aussi. 


30 PROGRAMMES | 103 


Autre méthode : 


La table des jeux peut être organisée différemment : 

© On stocke le jeu à fournir à l'adversaire (et non le jeu actuel). 

e On recherche alors, par essais successifs, le nombre d’allumettes à enlever pour parvenir 
au jeu cherché. 


e Cette méthode est plus puissante que la précédente mais plus compliquée à programmer. 


TJ( ) 





Gains 





Jeu à fournir 
à l'adversaire 
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Jeu par apprentissage — Marienbad 


Len, 


FEM AFPR JEU PAR APPRENTISSAGE -MARIENEALC — 


( 


As 
x 


mes re LIN Pie 
Pie Dore 


T 
32 
CL) 


CIM TJ 2085, APE 20 1, Gi 208 1, IC SE 4, PE SG. LUTC SG 


Je defart 





GOSUE 4GfA 

REM = een eeoee 

PRINT 

INPUT "Woulez vous commencer CON "Ré 
175 JRSGIF R$="O" THEN JRel 

176 : 

177 FF=û: COURS 

F8 : 

189 IF JFk=l THEH GOSUE 248:.JR=1-.IR 

185 IF FF=i THEH GOSUE F@gg:GOTO 144 

194 IF JE=4 THEH GOSUE 344 

192 IF FF=i THEH GOSUE FO: GOTO 144 
195 GOTO 184 


RE ml 
AU 
Ra in 


200 FRElszsessmeseemeneenemenensmsenemmœms JOUER eemeemex 
214 PRINT:IMPIIT MGUELLE LIGHE Mil 

226 INPUT "COMEIEH "ai 

234 : 


235 IF H>JEUCL) THEN FRIHT:PFEINT "VOUS TRICHEZ'": FAIT :GOTO ET 
237 GOSUB 6498: GOSLIE 614% 

239 : 

244 JEU L = JEU L'iet} 

254 : 

264 GOSUE 4488 

265 GOSUE 544% 

267 IF S=1 THEH FEINT "VOLS AVEZ GAGNÉ FPFel Get 
278 RETLIRMH 

294 REMezzzszsczssseseneseseseneesenenREz MACHIHE ms 
364 : 

318 GOSUE 644 ‘REM conversion + jell Code 
324 JAC=.JCOD RENM Ex: ICODe 751 

330 : 

494 MCOLF=4 

Ai: REMSeesessmemeemmmeense Récherche table des eux 
428 FOR I=1 TO 244 

425 ‘IF TI) A THEH 5E4 

434 :IF JACÉOTJCT: THEM 546 

444 :IF GI2MCOLF THEH MCOUF&GET 2: PCOUIP&T 

594 HEXT I 

314 : 

S2à IF MCOUPSA THEH Hel:GOTO 644 


ba] 
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30 REM===S seems decodage: 1 --% 5 et 1 
44 HLETHTE APE POUR 116 01: HeAPe PCOUR 1 HL4 15 
42 FÜR Ii TO 4 

3 IF HLeJEUCT) THEH LeT:GOTO 564 

add HEAT IT 

345 STÛF 


7 . 
7 : 
G GOSUE 6998: GÜSUE 614f 


84 PRIHT:PRIHT MJ'EN PREHDS: "Hi" LIGME: ML 
1€ DEEE 





GUSUE 4f 
, GS SUE bail 
7 IF Sz1 THEH FEINT :FEIHT "J'AI GAGHE': PRINT: Gel :FF=1 
4 RETURH 
4 RE. PAS DE SOLUTION EH TAËLE 
1 H1=f 

FÜR Is1 T[Ù 4 


4 

pi ft 
f (sl 
3 

(] 

f 

[e] 

G :IF JEUCT 43H11 THEH HIsJEUET Le 
fi 

A 

[ui 

9 

[a] 


[a 
F1 
H 


HEXT I 
4 GOT 64 


9 REM —-—--“— nec me memes CESSIH 
+ 
4@14 FOR Lei TO 4 

4@1z :FRINT Li" “ 

4G24 :FOR Hzi TO JEUCL 1 

4425 : IF JEUéL'ef THEH 4fñdf 

483 : PRIHMT "I": 

4844 :HEXT H 

4454 PRINT 

4964 MEXT L 

4674 RETURH 

4994 REM--- eee nee nee FIH CE PARTIES 
5964 S=f 

5065 FOR L=1i TO 4 

S1A :S=S+JELK Li 

S92A HEXT L 

5034 RETUFH 
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REM- CONMERSION JELUÉ ee JEU CODE 
FOR I=1i TO 4:H#iTis JEU TO: HEMT I 
l'=4 


FOR I=i TO 3 
CIF HCI+I HOT THEM Hal T ie Tél om Dé nm: Te 


A MEXT I 


IF IV=1 THEN 6454 


JCOD=G 
FOR Isi TO 4 
: JCODSJCODA4RE TH LATE T1 5 


A MEAT I 
3 RETURH 


REM---——— MAJ TABLE JEU ACTUEL 


AG COUF=COURP+1 : Je COUR 3e.JCOC 
4 P€ COUR = JEU L'r#1 4H 


LUTÉ COLR IF 


34 PETURH 
990 REM---- MA FIN CE PARTIE 


D = 
HE io Lo Fa: 


Ji 


ÉR ANELx 


DU I 
—" 


Fine GG 
RE RU ET | 


2m 


FOR Isi TO COLIF 
mes le Ti epe To 
FÜR ei TO 1444 
IF TI tef THEN TE ie: PC Je 
: Se #eTJC 1 THEH IF AFP" THEH Fa84 
5 MEXT I 


IF LUI Tel THEH Gé ieGé ic 
IF LUI T OS THEM Gé ieGé IC 


MEXT I 
RETURH 
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LE: JEU DE LA:VIE 


CONWAY a imaginé le ‘jeu de la vie’. Des cellules se reproduisent ou meurent en fonction 
de leur juxtaposition. 
Les règles sont les suivantes : 


e Chaque point entouré par 3 cellules donne lieu à une naissance. 
e Chaque cellule entourée de 4 cellules ou plus meure (étouffement). 
e Chaque cellule entourée par moins de 2 cellules meure (isolement). 


Le ns ui : 


Ce point est 
entouré par 
3 cellules 


Ce point est entouré 
par 4 cellules 





ou plus 
FERA 
ie 
ï dE ot | 
—>! [ES 
STD -_J 
[l | 1 
Lébes) 
Génération O Génération 1 Génération 2 
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Première méthode : 


Nous appliquons directement le principe énoncé : Pour chaque point, nous considérons les 
points voisins. Nous positionnons à 1 les éléments d’une table V(X,Y) lorsqu'il y a naissance 
puis nous affichons le contenu de la table. 











TABLE V (X, Y) 
RUN 
Hombre de cellules? 4 
Codrdonnees 4,9% 14. 18 
14.11 
14,1 
14.13 





Génération N + 1 


Génération N 


Deuxième méthode (d'après revue Bvte) : 


La première méthode présentée est très lente puisque pour chaque point, nous explorons 
systématiquement ses 8 points voisins. Sachant que seuls les points allumés peuvent provoquer 
une naissance où une mort dans leur voisinage, nous procédons ainsi : 

© Pour chaque point allumé, nous augmentons de 1 les 8 points voisins. 


TABLE V (X, Y) 





e Nous explorons la table V(X,Y) et nous allumons tous les points totalisant 3 (naissance). 
Nous éteignons tous les points supérieurs à 4. 


Troisième méthode : 


De façon à ne s'intéresser qu'aux points allumés, nous ajoutons 2 tables XX() et YY{() 
“pointant” vers les cellules en vie. Ainsi le temps de traitement est notablement réduit. Il est 
indépendant de la dimension de la table V(X,Y) 








XX ( VV (1) 





Pointeurs 
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VOICI UN EXEMPLE D’EXECUTION : 


Combien de cellules7 8 

CocurdoneesT 14,14 L 
11,14 
12,14 
13,19 
14,1@ 
15,10 
16.19 
LUE 





18 cellules 


8 cellules 


AD EC 


Génération O Génération 1 Génération 2 


À la 48° génération, nous obtenons une combinaison stable. 
En travaillant en haute résolution, le territoire devient beaucoup plus important. 
Jl suffit de remplacer : LORES par HIRES 

PLOT X,Y,16 par CURSET X,Y,0 

PLOT X,Y,10 par CURSET X,Y,1 

SCRN (X,;Y) par POINT (X,Y)=-1 











ELIH 

LÉ 4 

Hombre de cellules 7 

Coordonnées %x,4T 46.34 + 
CCE + 
44,44 + 
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Jeu de 





la vie n° 1 


RENM VIEI JEU DE LA VIE HA 


CLS 

HisgikeseE 
fisz: E=26 
DIM MEHE, VE 


H 
2 


:RENM limites territoire 






INPUT "Combien de cellules Mit 
PRINT 
FOR Hal TO HO 

: INPUT MCOCRDONHEES 4% is 
VC K, el 

MEAT H 


a GOSUE SG 


RE = ous ou one mue ae a ae ae ne an on ne nn eu ot td on ane do a ue a ec 


à FOR Y=Y1 TO VE 


‘FOR H=K1 TO KE 
WOK, VIe: TV=G 
FOR DY=-1 TO 1 :REM & points voisins 


FOR Dsl TO 1 

IF Dés THEH IF DYsf THEH £df 

IF SCRME Dé, 40 el THEM TT +1 
HEAT Dé 
HEXT CY 
IF Tys+d THEM WC 4, ef: GOT 344 
IF Ty=s THEH Wii. fuel: GOT 364 
IF TVsg OR TYe3 THEH IF SCRHE M, ele THEN Wei ue 


HEXT 
HEXT 






GH=eGH+1 REM Ho Generation 
GOSUE SA 
GOTO 154 


REM- mme AFFICHAGE eee 
LORESE 


FOR Y=#1 TO 2 

‘FOR #=41 TO #2 

‘IF Wik,Tiel THEN PLOT #,%,1€ 
:MEXT # 

HEXT 

#$="GEMERATION: "+STRSGC GH 


PLOT 25,20.#$ 
RETURH 
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Jeu de la 


112 


vie n° 2 


REM VIEZ JEU DE LA VIE WOZ 

CLS 

AIS2:HZSET :REM limites territoire 
Y1s2:"2=22 


DIN WC42,%23 


INPUT "Combien de cellules "MC 
PRINT 
FOR Hzi TO MNC 

: INPUT "Coordonnees #,% "54% 
LYC 923 

HNEXT H 

LOFESG 

GOSUB 5@G 


FOR Y=Y1 TO 2 
‘FÜR A#en1 TO X2 


IF SCRNCX,%9€218 THEH 390 


: FOR DY=-1 TO 1 :REM 8 Points voisins 
FOR Dx=-1 TO 1 
IF DxX=9 THEN IF DY=@ THEH 24% 
VE R+DE + DT DEV CRD + Dr +1 
HEXT Dx 
NEXT DY 


:MEXT X 
NEXT 


GN=GN+1 
GOSUB 508 
GOTO 158 


FOR Y=Y1 TO YZ 

‘FOR X=xX1 TO #2 

‘ IF VéK,Y2<2 THEH PLOT #.%.,16:GO0OT0 568 

‘IF VCHx,%29=3 THEH FLOT #,,18:GOTOS62 
IF V6, 2=4 THEN PLOT #,%,16 


: VCK, Y2=g 

MEXT 4 

MEAT 

AG= "GENERATION: "+5STRSC GN à 


PLOT 25,20,x% 
RETURN 
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Jeu de la vie n°3 


190 
114 
112 
120 
124 
125 
129 
149 
159 
168 
174 


ba : 
285 : 
219 : 
215 : 


REM JEU DE LA VIE HO 3 


DIM 4993, 993 
DIM #16993,Y1€99 3 
CLS 

H1=2:#2=30 
Y1z2:Y2225 

DIM VOXZ+1,%2+103 


INPUT "COMBIEN DE CELLULES "MC 
PRINT 
FOR H=1 TO HC 

: INPUT "COORDONNEES X,% "aix 
VOA, 93 

LHACHOEA VC M ET 

MEXT H 

LORESG 

GOSUE SG6 

REM = 


FOR Hz1 TO HC 
LARAA M  E YO M 


FOR DY=-1 TO 1 

IF Y+DY<Y1 OR Y+D%:%2 THEN 254 
FOR Dxe-1 TO 1 

IF KX+DACA1l OR KX+D42K2Z THEN £4g 


228 : 


230 : 
248 : 
256 : 


296 
360 
319 
334 
348 
345 


VORHDE HD eV RDA, + D 541 
HEXT Dé 

NEXT D 

NEXT NH 


GNEGN+1 
GOSUE 596 
GOTO 134 


30 PROGRAMMES | 113 


5QQ REM----------—- AFFICHAGE —--mmmmm mes 
515 H1=<ÿ 


536 FÜR H=1 TO HC 

540 :RA=HACN I: TS TYON D 

541 :FOR DY=-1 TO 1:FOR Dx=-1 TO 1 

542 : H=kK+D#K: = TT+D" 

543 : IF Wx,13=0 THEH 565 

545 : IF VCx,#3€=2 THEH PLOT K,Y,16:GO0TO0 565 
554 :IF VCX,Y)=3 THEM PLOT #,%,18:GO0OTO0 568 

555 : IF VC#,Y9=2?5 THEN PLOT #,%,16:GOTO 565 
558 :I1F SCRHCX,Y9=18 THEN IF VX. 54 THEH 564 
559 : GOTO 565 


562 :NI=MI+1: #10 HI EEK: TIC MI DE 


565 : VOA, 2=0 
567 :HEXT DK:HEXT D 
572 HEXT H 


583 HC=H1 

587 FOR He1 TO MC: YYCHI= VIN: KACMOIRHICHOIMEAT H 
539 *$= "GENERATION: "4+STRSE GNOHSTRSE NC à 

608 PLOT 25,24.x$ 

619 RETURH 
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Jeu de la vie haute résolution 


1A KREM WIE4 JEU DE LA VIE HAUTE RESOLUTIOH 


25 CIM #4 
6 LCI; 
39 CLS 





.Ye+11 


84 INPUT "COMBIEH DE CELLULES "iHC 
85 PRIMT 

29 FOR Hell TO HC 

194 :IHPLUT "COORDONNEES 4% "4 

11R :Vé 4, Vues 

112 2 HACM Om NE NIET 

124 HEXT H 

124 HIRES:IHKÉ 

125 GOSUE 568 
129 

14 


158 FOR Nz=1 TO HEC 
160 Het Hi ee Ho 


208 : FOR DY=-1 TO 1 
285 : IF +DY<"1 OR +0" THEN 254 
219 : FOR D#=-1 TO 1 


215 : IF X4DXCK1 OR H+DK>X2 THEH 248 
220 : 

239 : VC H+DK, V4D De VC H4DK, V4DY 341 
248 :  MEXT DX 

259 : MEXT DY 

290 : 

380 NEXT H 

318 : 


330 GN=GH+1 

340 GOSUE 549 

342 :REHM--- GOSUB 630 Pour edition imPrimante 
345 GOTO 154 
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508 REM Peer sseress AFFICHAGE == 
514 

515 Ni=@ 

539 FOR H=1 TO HC 

549 :HA=HACM 4: = TE HO 

541 :FOR DY=-1 TO 1:FOR Dé=-1 TO 1 

942 : A=hAtDK : = TT+OY 

543 : IF VWék, = THEH 565 

545 :IF VCx,Tacez THEH CURSET #,%,4:GOTO 365 
554 ‘IF WC#,%9=3 THEH CURSET %,%,1:GO0OTO 368 

590 IF Vox. is THEN CURSET %,%.89: GOT 365 
5938 ‘IF POINTCX,Vi=-1 THEM IF VOX, uzd4 THEM 568 
569 : GOTO 6 

[4 e n 






5 2 :Mi=N1+1:H1CH1 =: Y1E NI et 


565 : VC, V)=0 
567 :MEXT DX:HEXT DY 
57 HEXT H 


983 HC=H1 
Jo FOR He1 TO MC: YEN Ie TON HKE Me IC HO: MEXT H 
294 PRIHT "GEMERATIQH:":GHi" CELLULES :"3HC 


619 RETURH 

62A REM---- eee Edition imPrimante 
538 FOR Lz<i@ TO 49 

644 :FOR C=15 TO 64 

654 : IF POINTIC Liz-1 THEH LPFRIHT "#4"; :GOTO 67 
668 : LPRIMT " ": 

6rg : HEXAT C 

689 :LPRINT 

699 HEAT L 

695 LPRIHT:LPRIHT "GEHE:"3GH:LPRINT 

"44 RETURH 


Leu 


: * 
* XXX 
EX LU: 
LEHEX XX 
** #+ X XX * 
XEXYE KO XAKAX 
## HAE #*# KAXX XX 
# * # * * 
HXLEAX HEXEHEE 
+ + # # % #  ** *X* * 
#* #XX #* * * * * 
HEXKE # XX XX 
++ #4 
LEE * 
#XX KAE KEY 
# X XAAXX À 
# *% * 
* * 
X* #4 + 


sas 
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RECHERCHE -DE LA: PENTE 
D'UNE DROITE 


Si les jeux ne vous amusent plus, si la gestion vous ennuie, voici un domaine pour l'instant peu 
exploré : la reconnaissance de formes (sur un écran par exemple). 
Soit une droite dessinée sur un écran: 


PO 
P1 


p4 


e Nous voulons déterminer l'équation de cette droite. 

e Nous supposons que la droite ne présente pas de discontinuité. 

e Après avoir trouvé le premier point de la droite, nous recherchons tous les points de celle-ci 
en recherchant à partir de chaque point le point suivant. 


Point courant 
Point suivant cherché 


e Les coordonnées des points sont stockées dans 2 tables X{() et Y() 





© Par une méthode des moindres carrés, nous calculons la pente de la droite. Un coefficient de 
COVxy 
VarX*VarY 


qualité égal à nous permet de déterminer si la courbe testée est bien une droite. 
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Recherche de la pente d’une droite 


19 REM RFOFM RECHERCHE DE LA PENTE C'UHE CROITE 


25 REM----— Trace d'une droite Four essai 
38 HIRES 

4g CURSET 29,3,1 

56 CRAW 59.196,2 

79 REM---——— Recherche Premier Point 

88 FÜR Y=@ TO 193 

39 :FOR “=4 TO 239 

194 : IF POINTC A. “ox-1 THEH 156 


114 :HEXT # 

129 MEXT 

130 PRINT MECRAH VIERGE":STOF 

14 

154 PRINT MPREMIER POIHT: "x" 

169 REls=sasessssesesesess Recherche de Points 

174 KHGiozHi ele" :REM Premier Point 
184 KCzk:YC=" :REM Foint courant 
198 : 

ca FOR FTe2 TO 5 :REM 5 Points saisis 
214 :FOR DEPL=1 TO 4 :RENM Deplacement entre 2 Points 


228 : FOR Yi=YC-1 TO YC+1 ‘REM Recherche Point suivant 
230 : FOR “#1=xC-1 TO #C+1 


244 : IF #1=#C THEN IF YC=Y1 THEH 274 

250 : IF Y1=YA THEN IF X#1=xA THEH 274 

268 : IF POINTS #1,%10=-1 THEH KAz4C: AS YC: Cal: YCe"1: GÛTO 319 
2r@ : MEXT #1 


289 : MEAT “1 
294 PRINT "CISCONTIHUITE":STOP 


319 :HEXT DEFL 

320 HCPTOI=AC: VE PT = C 

330 HEAT PT 

340 REM--- 

364 HP=S 

37Q RENM-------- Calcul de “moy et ymoy 
380 Sx=0:5Y=29: 42-09 

390 FOR I=1 TO WF 

aBD :SASSAHAC TI D STESNANCI D HPSAZHAC LT IKKC I à 
419 HEAT I 

429 #M=Sk HP : YM=ST-HNP 
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436 
44a 
450 
46a 
47à 
484 
49ÿ 
309 
516 
Sea 
534 
548 
9330 
564 
570 
589 


REM----- Calcul de cow #\ var AY varék varY 
SC<G:5Sy=0 

FOR I=i TO WP 

:SC=SC+AC I TENVE I DAME TN 

:SYESUARET DKAC I MN 

:SOmSP4+ VC TI THVE I ME TN 

MEAT I 

CY=SC-NP : Vs CU MP: VYeS HF 


A=CY/ VE :REM Fente 
B=YMN-A#4" 

ROSCYHCU MEANS 

PRINT "PENTE:":A;i" COEFF QUALITE=":RÛ: 


GET #$ 
TEXT 


Reconnaissance de figures composées de droites : 


e Comment déterminer un changement de direction ? 

e Un premier essai fournit la pente de la première droite. 

e Un 2‘ essai donne le même résultat. 

e Au 3° essai, nous constatons grâce au coefficient de qualité que les points ne sont plus 


alignés. 


1°" essai 


A 
ne 2° essai 
A' 
\ 7 
| h._— 
\ d 
\ ne C hangement 
\ se B de direction 
\ 
\ 
\ 
\ 
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ä REM ROTF ROTATIOH C'UHE FIGURE 





1ä 

£@ : 

22 DIN #61545,%1542 

25 REM===----s Trace d'une figure Pour essai 
24 HIFES 


35 #G=20:"9=16: LES: H=3G 
3F CURSET #9, 8,1 

44 CURSET KA4+L-2, Y@4+Hse, 1 
59 DRAM -L ,4,1 

52 DEAN &  ,-H,1 


Sé CRAN L  :H#E.1 
Sr CRAN GHZ, 1 
rh REM------—- Recherche Premier Point 


99 :FOR #=Q TO & 
186 : IF POIHTE #4. 
119 :HEXT # 

124 HEXT 

139 PRINT "ECRAH VIERGE":STOF 


(1) Eos “= TO 199 


=] THEH 156 


156 FRINT "PREMIER FOIHT:";4," 
164 FEM Fechéerche de Foints 


‘REM Point courant 





266 FOR P=3 TO 198% 
228 : FOR “1=YC-1 TO C+1 :FEM Recherche Point suivant 
238 : FOR “1=4C-1 TO #C+1 


+ : IF #1=xC THEH IF YCzv1 THEH EPA 

259 : 

255 : IF POINTE #1, 10€ %-1 THEH 278 

256 : 

264 : FOR I=i TO 3 :REM Retour arriere 
262 : IF #1=#6P-12 THEH IF  “Y1=YéPF-15 THEH 74 
265 : HEXT I 

LéF : #C=#1:"Czr1:GOTO 318 

274 : MEXT #1 

284 : HEXT “1 

298 :PRINT "FIH'"::GOTO 744 

348 : 

318 :IF “Ce 3 THEN IF YC=Y{31 THEN 744 





312 :HCPO=HC : VC P=YC 
315 :CURSET KC.YC, 9: CURSET XC,YC. 1 
328 HEXT F 


Fÿ5 FÜR te 3 TO F-1 










Far A: ETC I 1e 

Fi18 : AG:IF £%-,.091 AND 55.01 THEH S=<4 
FE : 2 Cr, 61 AND C£,61 THEH C=g 
F3 : ‘ 

F4 :Y1 # 





750 :CURSET 6 .EB+ 141.6. 


768 HEXT I 
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Robot 


Ce programme transforme un dessin en DATA sous forme de caractères semi-graphiques. 
Ces caractères semi-graphiques sont affichés très rapidement, permettant ainsi d'animer des 


figures. 


44 

54 : 
18G 
114 
126 
138 
14& 
159 
169 
174 
184 
136 
zaa 
219 
228 
236 
24 
256 
268 
278 
288 


350 

1988 
1914 
1026 
1438 


34 DIM LOC 


1SG@ NEXT PV 


ANIMATION 


#+ 


#X 


CATA ÆETLEEE 
CATA " * # 
DATA !OO## # 4 #4 
DATA "OO #4  # 
CATA " * # 
DATA " # ÆXE À 
DATA # # 
DATA "OX ÆHEKAYE 
CATA " # * 
DATA !O #HXKEXEX 
CATA " * # 
DATA " # # 
DATA " # # 
DATA " * # 
DATA " * # 
DATA " # # 
DATA " # # 
CATA " # # 
DATA " HAHKLAX 
DATA " * # 
DATA " # # 
DATA " # * 
DATA # # 
DATA #4 #+ 
FOR I=1 TO Z4 
:READ LG I 2 
HEAT I 
REM- 
FOR PYel TO 3 
: FOR Peil TO 2 
: FOR Lei TO & 
5 : 
ä : 
A : MEXT L 
D : Cæéd+( PY-TUEZ4+F 
: DeC*e 
: GÛSUE AGE 
: MEXT PF 


# 


: KREM 
: REM 
: REM 
List PY- 1 I#8+L :PESCP-1 #6 +1 
BC L eMICSE LOGE LI, PS,6 0 


‘REM 
‘REM CEPLACEMENT MEMOIRE ECFAH 





a Pr 














RANGEES 
ELOCS PAR RANGEE 
LIGNES PAR RANGEE 


1EF CARACTERE 
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2454 


CLS 

FOR “=1 T0 34 STEF 5 
‘FLOT #16, "AE" 

:PLOT %#,11, "CD" 

:PLOT #.12,"EF" 

MEAT % 

WAIT 264 


REM DEPLACEMENT 
CLS 

FOR K=1 TO 36 

: PLOT %,19,"AE" 

: PLOT X:11."CD" 

: PLOT X,12,"EF" 


WAIT 5 
PLOT 4,14," 0" 
PLOT 4,11,"  " 
: PLOT K,18," 0" 
HEXT 
STOP 
REMSsnemesesniense CW BIMNAIRE--* CECIMAL 
A=46 45 


A FOR H=l TO & 


:HÜ=G 
LELEME #80 H 05 
FOR M=1 TO 7 
#B=MIDSC ESC H 0,1, 1 
IF #$="#" THEH R=i ELSE F=& 
HO=HD+REE 26 8-M-E 
HET 1 
: POKE ©A+D+H-1 3, MC 
HEXT H 
RETURH 
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PAYSAGE 


Paysage 
Soleil, nuages, mer et le bateau avance! 


AE FATESAGE 


es 
al 


HIRES: PAPER F:IHE à 


RENE es ess Lee ANIÉÉES 
FOR Hlet TO 5 

ste HU 1 ET EE à TER RMEIE 1 UE LE 

25 :FOR He1 TO 15 

34: keRNDC 1 2#d40+x0 
48: Y=RMDC 1 3420410 


hier pe be 0 in 
LA 


3 GO Mic 








64 :R=S+RHDE 11416 


9 :CURSET X:Y,1 
ee :FÜR Ri=1 TO R:CIRCLE R1,L'MEXT F1 
129 :NEXT HN 


149 HEXT HU 
190 REM-mmeesiaenese se SOLE TL 


214 CURS ET” re Fo 


239 REM——— 

250 FOR AN=4@968 TO 4996@+5:7444 STEF 4 
268 :POKE Al+1,3 

265 :POKE AM+5, 4 

278 HEAT AN 

288 CURSET 25,24, 1 

290 FOR R=1 TO 19:CIRCLE K,1:HEST F 


292 FOR A=@ TO E#FI STEF PI-14 

294 :R=1@+RHD( 1145 

295 :4=RXCOSC A: Y=RES IMC 

296 :CURSET 25,29, 1:0RAU 4,%,1 

295 NE*XT A 

DD REMssnssesssmssnssmmmemens EATEAL 
314 FOR Y=1 TO 6 

328 :CURSET S@4+4%,1444%,1 

334 :DRAU 48-Z2#%,09.1 

344 MEXT 


G5B REM---—-—— BATEAU MOEILE 
4Gà FOR #= 54 TO 24@ 

416 : FÜR “=1 TÜ € 

429 : CURSET 4%, 144+. 06 


436 : CURS ET +4 LE, 1444, 1 
44 : HEXT 
458 HEXT # 


cr 
Lo 
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DESSIN DE DÉS 


Dessins de dés 
Ce programme dessine des tires au hasard. 


14 REM Dessin de des 
14 : 
15 FEN Dessinée 3 des tirées au hasard 


34 LÜRES 4 

164 FÜR TR=l TJ 5 3 Le 
115 :DE=IHTS RAIDE LH +1 

éeTREIE : Ye TE 


EU 


Fe 
FLOT #1, +41 





IF DEs1 OR CES OR CE=S THEH FLOT +1 rl, "en 
:IFDE=SYE THEH FLÛT 4, et PLOT 4x ie ns “ 
He DES? 4 THEH FLÜT x M PLOT état, M PLOIT Has 
EE THE 
4 IF DE= & THEH PLOT +1 tt, OU PLOT bi T4 an 








HEXT TR 
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TRACÉ DE COURBE 


Tracé de courbe avec graduation 
14 REM TRACE DE COURBE (avec Graduation 


36 HECR=150:LECR=2@6 :REM Hauteur-longueur ecran 
48 INPUT "EORHE #1 "El 

Sä INPUT "BORNE #2 ";iBz 

68 IHPUT "PAS "PAS 


75 k=2B1:GOSUE ZSG:Y1=T: T2 
8@ FOR “#=EB1 TO E2 STEF PAS 
184 : GÜSUE 286 


11@ : IF Y€Y1 THEH Ÿ1=Y ‘REM Mini 

126 : IF Y?Y2 THEN Y£z :REM Maxi 

139 NEXT # 

135 

14Q HIRES 

154 Ex=LECR-iB2-E1 : :REM Echelle *x 

169 EY=CHECR-E 162-105 ‘REM Echelle * 

179 REM-----ee eee mener Axe 

186 IF Te THEH IF Yl4=@ THEM Y=HECR- ABC Y1 HET : CURSET 1,%,1:D0RAH 
LECR 4; 


196 IF ÉDn50 THEN IF EB1<=9 THEH #=ABSCE1#EX:CURSET #.1,1:DRAU GHE 
CR, 1 
244 REM------— 
21G FOR “=E1 TO EZ STEF PAS 
224 :GOSUE 234 
238 :SHe(k-B1l#Ex 
244 :SY=HECR-C TL IXE" 
254 : CURSET Ska Sol 
264 HEXT # 
261 REM----mmm mm mm mme Graduations 
262 Y=HECR-AEBSC 1 2HKEY+3: 421: E=E1: GOSUE 27 
£éd Y=HECR-AES Le V1 SHEVSK =LECR- —S:E2<BE: cOSUE 2 ET 
266 Y=HECR+d : H=ABSCE1 HE: B=r1: GOSUE 273 
265 =5 :H=ABSCE1 #E*:E="2: GOSUE 373 
71 GOTO 284 
272 REM---- 
£73 IF #2LECR+14 THEN #=LECR ZE 
274 IF Y?HECR+18 THEH Y=HECR/E 
275 CURSET #,%,3::AS=STRSCE 5: IF ASC A SUEZ THEN #$=RICHTSC HS, LENS 


15 
276 FÜR Fzi TO LEHC#% 0: CeASCEMIDSE 4. PF, 1 12: CURSET K+P#8. 3: CHAR C: 
G,1 


277 NEXT F 
278 RETURH 
284 

284 GET #5 


287 EHD 

288 REM sms esse Courbe a tracer —--- 
299 Y=SIHE HA IEHX 

388 RETURH 
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Copie écran — imprimante SEIKOSHA (haute résolution) 


126 


14 


£G 
34 
44 
50 
68 


FA : 
84 : 
96 : 


198 
114 
129 
139 
14 
158 
164 
174 
£a 


REM COPIE ECRAH--2IMPRIMANTE SEIKOSHA HAUTE RESOLUTIOH : 


DIM Ti Z4@3:FOKE 43,2 

FOR Hz1 TO 28 

:GOSUE 246 

: FÜR M1 TO 7 
GOSUE 344 

HEXT M 

GOSUE 444 

HEXT H 

GÜSUE 244 


FOR M=i TO 4 
GOSUE 366 
HE#T 1 


J'CALL HE6CA:LFRINT :Y=ÿ 


GOSUE 464: CALL #ESG4 : STÛF 


REM mm Femise 4 
FOR I=1 TO Z4@:TC I: 
RE Traitemen 
FOR “ef TO 234 


EXT 
=Y+1 
RETURH 


‘F= PRESS P= 


ZÉPO. ee one ce mi den on ion 
ISLEG: HET I':'FETURH 
1 Par Line mme 


1 THEH TE He TE HE M1 


Q REMS--mannnmen Egitiviner 


LFRIHT CHERS 
FOR Isi T0 Z 





FA 
LPRIHNT CHRSGETET 5: 


HEAT I 


s LFEIHT:RETLUEH 
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DRE] 


£ 
bi 


Conduite voiture 


146 


156 













164 : 


244 


FEM COHOUITE VOITURE 
REM = on mean mn GEMERATIOH VOITURE 
CATA 45, 63,45,12,12, 45 1,6% 4 
gent 
A=46AE 
C=ASCE VS HE 
FOR H=g TO 7 
:REAC HD 
:PÜOKE A+C+H, HD 
HEXT H 
REM = mme me ou men EQUTE 
Lé=CHRSgE LEE 4" : MACHRSE SES 
REM-— 
CLS : PAPER? : IHk4 
#Hasiz 
PARIS E QUES :FEN Position voiture 
FOR Elz1 TO 36444 
‘As IMTE RD 1 2 IE ACRES | 
MU T On 
:IF nes THEH 
IF #4<3 THEH : 
: PRINT SPC É 
CIF SCRHE AN BUT THEH 14f 
:EXPLODCE : PAPERL:HAIT SA:FAPER S:UAIT SA:PAPFER À 
PRINT EM-146:" KM": ALT ea: GOT 64 
:PLOT 44,1%, 
:PLOT 44 Ter Un 
ASSKEYS:IF ESEUT THEN 164 
CIF HASCC ABueS THEH Venus 
IF ASC ASuRS THEN vaut 
HEAT KM 


, 
* L} û 
is Es 
fs Fa 
1, " 
[M . D 
. mn 
fu “ “ 
mn mn 
ni à 
4 DR 
LR] ON] 
LA 4 
LRU [A 
5 
du LL #, 
n \à 
“ di 
1, ,. 
“ [M 
5 , 
LA " à 
. , 
LR] L} F 
Dm 
DK] Û D] 
mn 
di , b 
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Pièges 


14 REM FIEGES 


13 FEM T3 monstres Vous Foursuis ent 
14 BEM MOULE, cherchez 3 les faire tomber 
15 KE dans des Fieaescbhleus 


3ù LORES @ 
d fñ Qu = 

45 M=% "mer 
5 XC=18:YC=10:FLOT XC, 






F4 FOR I=i TO 3 

AMC Ie THTE HD 1 

LME I eTHTE FMC 1 

FLOT ME TC ME T 4, 18 

 PLOT RHDE 1 C++ 16, HD CSC CT 1, EU 

HET I 

HAIT 24 

REM ee 

FÜR Is TO 5 

ABSEEYS: IF BEN THEH cf 

PLOT #00. 16 

HeASCE ES 1 

IF &eë THEH IF LE 

IF “= THEH IF 

IF #=19 THEH IF 
us ' 









Monstres 


RUE GQlie en E 


GSUSEÉSSSLSeSSNGR. 


LR SE] 






iii bb Re bebe pe be me li 
Rx) 


Nik 






4 THEH fi 
DPSITSE 
MC 1 )-C 86 CL K 











: Fi 
IF SCRHAME 10, VE LOC 20 THEN 275 Pièges 


ME TI nee MEL ef: PLOT à ‘lé :Mett+i: GOT 544 
RES test devore 

#15 IMTE KME T9 251 Dr à 

FLOT #4, 4, 16: PLOT sl. 1 

AI IHTÉ EME T ISINTE SM 19 

IF ie AND YizT4 THEH PLÛOT &,2, "PERDU: UAIT 366: GOT £& 


SD UN JIM OAMEANEN 


G 
DQUGAGISSDNELSS 


CO Fo Pi F5 Do FO Po Pa Po Po Por Fat Po 


IF M3 THEH FLÛT 2, "GAGHE" :HAIT SG: GOT 24 
494 HET I 
+14 GOTO 156 
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Tas de cubes 


Cubes multicolores 


14 FEH TAG CE CUEES 


26 

38 REM Des cubes multicolores tombent du Haut de l'ecran 
32 REM rebondissent gt forment un tas multicolore 

34 : 


4@ LÜRESS 
94 FOR #sl TO SS:PLOT 4,24, 1F:HEXT # 








64 

nl #=20 

84 C= CRDRE HT +1 

34 HAIT 

188 FOR * Ed 

185 :IF & {+16 THEH 12 

116 :IF ï=16 THEH PLOT a el 16: PLOT 5 16+T 
115 HE* 

119 : 

124 : SHOÛT 

134 : D=INTERHOE 1 ESS: IF De THEH Dal 


148 :FOÜR R=1 TO 24 
159 : IF SCAN SK. oelé THEM FLOT 1,16: FLÛT 44%, 160 fe: GOTO 1 


169 : IF SCRHE +0, Yo 1é THEH FH 

176 : PLOT K%-1.16 kek+D: PLÛT 1840 
184 : FINHG:MHAIT 18 

194 :rer+1 

219 :HEAT F 

224 GÜTO FA 
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Soucoupe 


RENM SOUCQOUFE 


FEM Le joueur doit rattraper des Pau 
FEM tombant du haut de l'ecran 


LEE] 
LU] 


CE OU RCEURRESS 


DUOrIGAMUNm 


LORESE 
PRINT CHESE LT 5 :FEM suPPression curseur 


un ER 


VEs=td: HE FEM soucouFe 

Se FLOT 13 As APPUYER SUR ESPACE" 

ES HeH+1 

F4 CP 

8 FOR Has TO HE+S:PLOT HT AT: HEËT # 


ii 
n 
; 


tel 

SA PeS +IMTÉRNDE 1 ET 1e Pef: Cal EE THTÉ HO CHE à 
ti LOT AFP EC 

119 HAIT 154 

124 RE a oo déeFart SOuCoure 

159 SHSEETS:IF EE EUN THEH CPFzi 

144 : 

154 WAIT 


155 IF SCRME EP, YP+1 C1 AND OYPSZS THEH 174 








155 FLÜT 5, 16: PLÛT #54 TE 
165 
1r4 


IF YPÉES THEM Fer +1 


HS, VS, 16: PLOT K5+41,58,16:PLOT : 





234 IF SCRHE EP. VRP SIT THEH 344 
24ÿ REM---— gagne 


256 ReR+1:#SIHTÉ RS H#168 01: PLOT EE, 2, SCORE : "HSTESE AUX 


268 WAIT 144 
Ev4 PLOT PF," 
284 PLOT #5 
234 GOTO 54 
295 : 

344 KREM----—- Affichage nouvelles Fositions 
314 PLOT #S-1,75.16:PLOT #495+2,%S,17 

315 

324 PLOT # 
344 GÜTO 





: PLÔT : #3, 15 16: PLOT #5+1.75,16 


PF, TP-1, 16: PLOT &F, TFC 
35 
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16 PLOT #4, VS, 16: GOTO SE 


ME +E Er 16: GOT 
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PROGRAMMES 


“Oric-ophiles” réjouissez-vous, voici “30 programmes”. 

Faisant suite à l'ouvrage “Oric-1 pour tous” ce recueil s'articule sur quatre thèmes : 
@ EXERCICES, utilisant les fonctions particulières de l'Oric-1 telles que KEY, PLOT, 
FILL. 


e ÉDUCATION, proposant des idées de programmes de géographie, orthographe, 
anglais, dessins. 

@ GESTION, développant quelques exemples du type annuaire téléphonique, 
fichiers d'adresses, courrier paramétré.. 

@ JEUX, tous les grands classiques, Allumettes, Le compte est bon, Biorythmes, 
Jeu de la vie Marienbad, y sont traités avec originalité. 

Tous ces. programmes, largement commentés et illustrés vous permettront 
d'approfondir vos connaissances en Basic, et vous serviront de tremplin pour de 
nouvelles créations. 


_—_ 





EDITIONS DU PS. 


B.P. 86 - 77402 LAGNY/MARNE CEDEX 
FRANCE 


82,00 FF + + 


2EJ8INON LUSH : SINUSANOD 
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